OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
7 is in the sequence because 10007 is prime.
49 is in the sequence because 100049 is prime.
187 is in the sequence because 1000187 is prime.
MATHEMATICA
Select[Range[700], PrimeQ[FromDigits[Join[{1, 0, 0, 0}, IntegerDigits[#]]]]&] (* Harvey P. Dale, Oct 03 2011 *)
PROG
(Magma) [ n: n in [1..800] | IsPrime(Seqint(Intseq(n) cat [0, 0, 0, 1])) ]; // Klaus Brockhaus, Feb 02 2011
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 30 2005
STATUS
approved