%I #15 Sep 08 2022 08:45:17
%S 12,24,30,48,59,62,68,78,84,89,99,101,111,114,131,141,146,153,159,162,
%T 173,185,191,194,198,206,209,210,231,233,240,243,245,269,282,296,300,
%U 311,353,357,363,365,366,374,378,381,383,386,390,393,399,450,458,462
%N Numbers k such that the string k23571113 represents a prime number.
%H Harvey P. Dale, <a href="/A103590/b103590.txt">Table of n, a(n) for n = 1..1000</a>
%e If k=12, then k23571113 = 1223571113 (prime).
%e If k=59, then k23571113 = 5923571113 (prime).
%e If k=99, then k23571113 = 9923571113 (prime).
%t With[{c={2,3,5,7,1,1,1,3}},Select[Range[500],PrimeQ[FromDigits[Join[ IntegerDigits[ #],c]]]&]] (* _Harvey P. Dale_, Apr 03 2013 *)
%o (Magma) [ n: n in [1..700] | IsPrime(Seqint([3, 1, 1, 1, 7, 5, 3, 2] cat Intseq(n))) ]; // _Vincenzo Librandi_, Feb 03 2011
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Mar 23 2005
%E More terms from _Jon E. Schoenfield_, May 16 2010
|