OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3410 (terms below 10^11)
EXAMPLE
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Apr 23 2020
STATUS
approved