A069678 Primes with either no internal digits or all internal digits are 3.

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, 131, 137, 139, 233, 239, 331, 337, 431, 433, 439, 631, 733, 739, 839, 937, 2333, 2339, 3331, 4337, 4339, 5333, 6337, 7331, 7333, 9337, 13331, 13337, 13339, 23333, 23339

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..267

Mathematica

Join[Prime[Range[25]], Select[Flatten[Table[10FromDigits[PadRight[{n}, k, 3]]+d, {n, 9}, {d, {1, 3, 7, 9}}, {k, 2, 5}]], PrimeQ]]//Sort (* Harvey P. Dale, Aug 08 2020 *)

Crossrefs

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

Sequence in context: A062353 A077390 A069677 * A069679 A069680 A069681

Adjacent sequences: A069675 A069676 A069677 * A069679 A069680 A069681

Keyword

nonn,base

Author

Amarnath Murthy, Apr 06 2002

Extensions

Offset corrected and name changed by Arkadiusz Wesolowski, Sep 07 2011

Status

approved