A069676 Primes with either no internal digits or all internal digits are 1.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 113, 211, 311, 313, 317, 419, 613, 617, 619, 719, 811, 911, 919, 1117, 2111, 2113, 3119, 4111, 5113, 5119, 6113, 8111, 8117, 11113, 11117, 11119, 41113, 41117, 71119

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

Cf. A069675, A069677, A069678, A069679, A069680, A069681, A069682, A069683, A069684.

Sequence in context: A231588 A038618 A030475 * A062353 A077390 A069677

Adjacent sequences: A069673 A069674 A069675 * A069677 A069678 A069679

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