OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
A090455(a(n)) > 0.
MATHEMATICA
seq[len_] := Module[{s = {}, p = 2, k = 1, c = 0}, While[c < len, If[Greater @@ DigitCount[{k, p}, 2, 1], c++; AppendTo[s, p]]; k++; p = NextPrime[p]]; s]; seq[50] (* Amiram Eldar, Jul 18 2023 *)
Prime[#]&/@Select[Range[500], DigitCount[#, 2, 1]>DigitCount[Prime[#], 2, 1]&] (* Harvey P. Dale, Apr 19 2024 *)
PROG
(PARI) isok(k) = hammingweight(prime(k)) < hammingweight(k);
lista(nn) = for(n=1, nn, if (isok(n), print1(prime(n), ", "))); \\ Michel Marcus, Feb 05 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Dec 01 2003
STATUS
approved