OFFSET
1,1
COMMENTS
The sequence appears to be infinite.
LINKS
Shyam Sunder Gupta and Charles R Greathouse IV, Table of n, a(n) for n = 1..829 (all terms with up to 1000 digits; first 500 from Gupta)
EXAMPLE
a(2)= 1031 is in the sequence because it is a prime of the form abca.
MATHEMATICA
s[n_]:=Select[Union@Flatten@Table[FromDigits@Flatten@Join[IntegerDigits@Table[b, {n}], {IntegerDigits@Floor[b/100]}], {b, 100, 999}], PrimeQ]; Array[s, 2]//Flatten
PROG
(PARI) for(k=1, 9, b=10^(3*k+1); for(n=1, 999, if(isprime(t=b*n\999), print1(t", ")))) \\ Charles R Greathouse IV, Aug 29 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Aug 28 2013
STATUS
approved