OFFSET
1,6
COMMENTS
a(n) = 1 if prime(n) is in A057733. - Robert Israel, Dec 28 2015
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
0, 0, seq(nops(numtheory:-factorset(ithprime(i)-3)), i=3..100); # Robert Israel, Dec 28 2015
MATHEMATICA
Join[{0, 0}, PrimeNu/@(Prime[Range[3, 100]]-3)] (* Harvey P. Dale, Sep 09 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved