A069679 Primes with either no internal digits or all internal digits are 4.

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, 149, 241, 347, 349, 443, 449, 541, 547, 641, 643, 647, 743, 941, 947, 1447, 2441, 2447, 3449, 4441, 4447, 5441, 5443, 5449, 6449, 8443, 8447, 14447, 14449, 24443, 44449

Offset: 1

Author

Amarnath Murthy, Apr 06 2002

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..77 (all terms up to the one millionth prime)

Crossrefs

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

Programs

Mathematica

Join[Prime[Range[25]],Select[Prime[Range[26,5000]],Union[Most[Rest[ IntegerDigits[ #]]]] =={4}&]] (* Harvey P. Dale, Dec 08 2022 *)

Extensions

Corrected by Ray Chandler, Nov 24 2003

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