OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=Block[{len=Floor[Log[10, n]+1]}, Select[10^(4+len) n+10^len*Table[k (10^4-1)/9, {k, 9}]+n, PrimeQ@#&]]; Array[f, 3509]//Flatten
PROG
(Magma) m:=4; [p: d in [1..9], n in [1..2000 by 2] | IsPrime(p) where p is n*(10^(m+t)+1)+d*10^t*(10^m-1) div 9 where t is #Intseq(n)]; // Vincenzo Librandi, Sep 14 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Jul 27 2012
STATUS
approved