|
%I #11 Apr 24 2020 09:41:38
%S 126866286,133542126,148891086,150959502,173668302,207567342,
%T 227950542,257154606,263874222,284421582,295075566,331190766,
%U 373024206,390589326,392805486,393817806,395760366,397921806,441314766,459700686,459990702,516188142,527006286,586869966
%N Starts of runs of 3 consecutive binary Moran numbers (A334344).
%H Amiram Eldar, <a href="/A334346/b334346.txt">Table of n, a(n) for n = 1..3410</a> (terms below 10^11)
%e 126866286 is a term since 126866286/A000120(126866286) = 7048127, 126866287/A000120(126866287) = 6677173 and 126866288/A000120(126866288) = 7929143 are all prime numbers.
%t binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; bin = binMoranQ /@ Range[3]; seq = {}; Do[If[And @@ bin, AppendTo[seq, k - 3]]; bin = Join[Rest[bin], {binMoranQ[k]}], {k, 4, 2 * 10^8}]; seq
%Y Subsequence of A330932, A334344 and A334345.
%Y Cf. A000120, A235397.
%K nonn,base
%O 1,1
%A _Amiram Eldar_, Apr 23 2020
|
