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

Author

Amarnath Murthy, Apr 06 2002

Keywords

• nonn
• base

Links

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

Crossrefs

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

Programs

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 *)

Extensions

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