OFFSET
1,1
COMMENTS
All terms are even. - Michel Marcus, Oct 14 2016
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
ncpQ[{a_, b_}]:=PrimeQ[FromDigits[Flatten[IntegerDigits[{b, a}]]]]; Transpose[ Select[Partition[Range[500], 2, 1], ncpQ]][[2]] (* Harvey P. Dale, Nov 25 2012 *)
Select[Range[500], PrimeQ[#*10^IntegerLength[#-1]+#-1]&] (* Harvey P. Dale, Mar 16 2019 *)
PROG
(Haskell)
a054211 n = a054211_list !! (n-1)
a054211_list = filter ((== 1) . a010051' . a127423) [1..]
-- Reinhard Zumkeller, Jun 27 2015 Jul 15 2012
(PARI) isok(n) = isprime(eval(Str(n, n-1))); \\ Michel Marcus, Oct 14 2016
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, Feb 15 2000
STATUS
approved