OFFSET
1,1
COMMENTS
This concatenation is fp(6, n) as defined in A083677.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
10 is in the sequence because 210310510710111013 is prime.
MATHEMATICA
v={}; Do[If[PrimeQ[FromDigits[Join[{2}, IntegerDigits[n], {3}, IntegerDigits[n], {5}, IntegerDigits[n], {7}, IntegerDigits[n], {1, 1}, IntegerDigits[n], {1, 3}]]], v=Append[v, n]], {n, 1400}]; v
fp6Q[n_] := PrimeQ[ FromDigits[ Flatten[ IntegerDigits /@ Insert[{2, 3, 5, 7, 11, 13}, n, {{2}, {3}, {4}, {5}, {6}}]]]]; Select[ Range[1100], fp6Q[ # ] &] (* Robert G. Wilson v, Dec 11 2004 *)
Select[Range[1100], PrimeQ[FromDigits[Flatten[IntegerDigits/@Riffle[{2, 3, 5, 7, 11, 13}, #]]]]&] (* Harvey P. Dale, Mar 21 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Farideh Firoozbakht, Jun 15 2003
EXTENSIONS
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 27 2007
STATUS
approved