OFFSET
1,4
COMMENTS
a(n) = 1 iff n is prime.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2000 from Hans Havermann using the b-file of A038547 provided by Don Reble)
MATHEMATICA
PrimeNu[Table[Select[Range[1, 532000, 2], DivisorSigma[0, #] == k + 1 &, 1], {k, 0, 15}] // Flatten] (* G. C. Greubel, May 07 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Sep 22 2006
EXTENSIONS
Typo in A_number fixed by Matthew Vandermast, May 03 2014
STATUS
approved