OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10001
MAPLE
for n from 1 to 1000 do a := n+10^( floor(log(n)/log(10)+0.000001 )+1)*(n-1); a := a+10^( floor(log(a)/log(10)+0.000001 )+1)*n; b[n] := a:end do:k := 0:for n from 2 to 1000 doif(isprime(b[n])) then k := k+1:c[k] := b[n]:end if:end do:seq(c[j], j=1..k);
MATHEMATICA
A068659={}; Do[t=FromDigits[Flatten[IntegerDigits/@{(n+1), n, (n+1)}]]; If[PrimeQ[t], AppendTo[A, t]], {n, 500}]; A068659 (* K. D. Bajpai, Jul 03 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 01 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 26 2002
101 inserted by Ilya Gutkovskiy, Dec 07 2016
STATUS
approved