|
%I #20 Nov 01 2022 15:25:02
%S 4441,4447,14447,14449,24443,44417,44449,44453,44483,44491,44497,
%T 54443,54449,74441,74449,84443,84449,94441,94447,124447,134443,144407,
%U 144409,144413,144427,144439,144451,144461,144479,144481,144497,164443,164447
%N Primes containing the string 444.
%H Vincenzo Librandi, <a href="/A166582/b166582.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ n log n. - _Charles R Greathouse IV_, Nov 01 2022
%t p444Q[n_] := Module[{idn = IntegerDigits[n]}, MemberQ[Partition[idn, 3, 1], {4, 4, 4}]]; Select[Prime[Range[20000]], p444Q] (* _Vincenzo Librandi_ Sep 14 2012 *)
%t Select[Prime[Range[16000]],SequenceCount[IntegerDigits[#],{4,4,4}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 15 2018 *)
%Y Cf. A166571-A166573, A166579-A166581.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Nov 01 2009
%E Corrected (144491 replaced by 144497) by _R. J. Mathar_, Nov 30 2009
|
