OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[2, 1000], IntegerQ[Sum[1/PrimeNu[k], {k, 2, #}]] &] (* G. C. Greubel, Apr 23 2017 *)
PROG
(PARI) { n=0; a=0; for (m=2, 10^10, a+=1/omega(m); if (a % 1.0 == 0 , write("b066996.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 24 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 27 2002
EXTENSIONS
Missing terms a(22)=117 and a(24)=130 added by Harry J. Smith, Apr 24 2010
STATUS
approved