A228761 - OEIS

%I #17 Jan 14 2015 17:59:58

%S 1496149,1497149,1499149,14915149,14924149,14925149,14928149,14931149,

%T 14942149,14945149,14951149,14976149,14985149,14991149,149124149,

%U 149127149,149132149,149135149,149150149,149153149,149159149,149162149,149171149,149175149,149187149,149192149

%N Primes of the concatenated form 149x149 for some number x.

%C Sequence is infinite. - _Charles R Greathouse IV_, Sep 03 2013

%H K. D. Bajpai, <a href="/A228761/b228761.txt">Table of n, a(n) for n = 1..2000</a>

%F Primes of the form parse(cat(149,x,149)).

%e 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.

%p 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);

%t With[{c={1,4,9}},Select[Table[FromDigits[Join[c,IntegerDigits[n],c]],{n,200}],PrimeQ]](* _Harvey P. Dale_, Jan 14 2015 *)

%o (PARI) for(x=1,1e3,if(ispseudoprime(t=eval(Str(149,x,149))), print1(t", "))) \\ _Charles R Greathouse IV_, Sep 03 2013

%K nonn,base,less

%O 1,1

%A _K. D. Bajpai_, Sep 03 2013