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,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A077390 A069677 A069678 * A069680 A069681 A069682

Adjacent sequences: A069676 A069677 A069678 * A069680 A069681 A069682

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