|
%I #21 Jul 23 2023 01:50:10
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T 97,149,241,347,349,443,449,541,547,641,643,647,743,941,947,1447,2441,
%U 2447,3449,4441,4447,5441,5443,5449,6449,8443,8447,14447,14449,24443,44449
%N Primes with either no internal digits or all internal digits are 4.
%H Harvey P. Dale, <a href="/A069679/b069679.txt">Table of n, a(n) for n = 1..77</a> (all terms up to the one millionth prime)
%t Join[Prime[Range[25]],Select[Prime[Range[26,5000]],Union[Most[Rest[ IntegerDigits[ #]]]] =={4}&]] (* _Harvey P. Dale_, Dec 08 2022 *)
%Y Cf. A069675, A069676, A069677, A069678, A069680, A069681, A069682, A069683, A069684.
%K nonn,base
%O 1,1
%A _Amarnath Murthy_, Apr 06 2002
%E Corrected by _Ray Chandler_, Nov 24 2003
%E Offset corrected and name changed by _Arkadiusz Wesolowski_, Sep 07 2011
|
