OFFSET
1,2
COMMENTS
Also numbers k such that 1000*k + 101 is prime. - Stefan Steinerberger, Feb 21 2006
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
EXAMPLE
If k=0, then k101 = 0101 (prime).
If k=42, then k101 = 42101 (prime).
MAPLE
q:= n-> isprime(parse(cat(n, 101))):
select(q, [$0..300])[]; # Alois P. Heinz, Jan 23 2020
MATHEMATICA
For[n = 0, n < 300, n++, If[PrimeQ[1000*n + 101], Print[n]]] (* Stefan Steinerberger, Feb 21 2006 *)
PROG
(PARI) is(n)=isprime(1000*n+101) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Apr 07 2005
EXTENSIONS
More terms from Stefan Steinerberger, Feb 21 2006
Missing a(11)=44 inserted by Daniel Starodubtsev, Jan 23 2020
STATUS
approved