OFFSET
1,1
COMMENTS
a(n) <= 20
EXAMPLE
a(2)=6 because 11,211,23,223,29,229,41,241,71,271,83,283 are primes.
MATHEMATICA
With[{prs=Prime[Range[25]]}, Table[Length[Select[prs, PrimeQ[100n+#]&]], {n, 100}]] (* Harvey P. Dale, Sep 03 2022 *)
PROG
(PARI) a(n) = {nb = 0; forprime(p = 1, 99, nb += isprime(100*n + p); ); nb; } \\ Michel Marcus, Sep 04 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Bill McEachen, Feb 03 2005
EXTENSIONS
Edited by Don Reble, Mar 28 2006
STATUS
approved