OFFSET
1,1
COMMENTS
Sequence is infinite. - Charles R Greathouse IV, Sep 03 2013
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..2000
FORMULA
Primes of the form parse(cat(149,x,149)).
EXAMPLE
a(1)= 1496149 is a term in the sequence as it is a prime of the form abcxabc: abc are square digits 1,4 and 9 in order.
MAPLE
with(StringTools): KD:= proc() local a, b; a:= 149; b:=parse(cat(a, x, a)); if isprime(b) then RETURN(b): fi; end: seq(KD(), x=1..1000);
MATHEMATICA
With[{c={1, 4, 9}}, Select[Table[FromDigits[Join[c, IntegerDigits[n], c]], {n, 200}], PrimeQ]](* Harvey P. Dale, Jan 14 2015 *)
PROG
(PARI) for(x=1, 1e3, if(ispseudoprime(t=eval(Str(149, x, 149))), print1(t", "))) \\ Charles R Greathouse IV, Sep 03 2013
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
K. D. Bajpai, Sep 03 2013
STATUS
approved