OFFSET
1,1
LINKS
Eder Vanzei, Table of n, a(n) for n = 1..257
MATHEMATICA
aid1Q[n_]:=Union[Most[Rest[IntegerDigits[n]]]]=={1}; Join[Prime[Range[PrimePi[ 100]]], Select[Prime[Range[PrimePi[100]+1, 7100]], aid1Q]] (* Harvey P. Dale, Apr 12 2013 *)
PROG
(PARI) lista(na) = my(vp = List(primes(primepi(100)))); for (n=1, na, my(x=(10^n-1)/9); for (i=1, 9, forstep(j=1, 9, 2, my(y=10^(n+1)*i + 10*x + j); if (ispseudoprime(y), listput(vp, y)); ); ); ); Vec(vp); \\ Michel Marcus, Jul 12 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 06 2002
EXTENSIONS
Corrected by Ray Chandler, Nov 24 2003
Offset corrected and name changed by Arkadiusz Wesolowski, Sep 07 2011
STATUS
approved