OFFSET
1,1
EXAMPLE
k=9 is in the sequence because k10k = 9109 is prime.
k=113 is in the sequence because k10k = 11310113 is prime.
k=219 is in the sequence because k10k = 21910219 is prime.
MAPLE
q:= n-> isprime(parse(cat(n, 10, n))):
select(q, [$1..917])[]; # Alois P. Heinz, Sep 07 2025
MATHEMATICA
n10pQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[FromDigits[Join[idn, {1, 0}, idn]]]]
Select[Range[1000], n10pQ] (* Harvey P. Dale, Feb 22 2011 *)
PROG
(Magma) [ n: n in [0..1000] | IsPrime(Seqint(Intseq(n) cat [0, 1] cat Intseq(n))) ]; // Klaus Brockhaus, Feb 03 2011
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 30 2005
STATUS
approved
