|
|
|
|
2, 3, 5, 7, 19, 23, 29, 41, 53, 67, 71, 73, 83, 89, 97, 113, 131, 139, 193, 197, 211, 269, 281, 283, 311, 317, 337, 347, 349, 353, 359, 373, 389, 479, 503, 521, 523, 547, 563, 587, 593, 601, 647, 661, 691, 719, 739, 839, 857, 863, 881, 887, 929, 937, 983, 1013
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Select[Range[1000], PrimeQ[#] && Divisible @@ DigitCount[{#, PrimePi[#]}, 2, 1] &] (* Amiram Eldar, Jun 14 2021 *)
|
|
PROG
|
(PARI) isok(p) = isprime(p) && ((hammingweight(p) % hammingweight(primepi(p))) == 0); \\ Michel Marcus, Jun 14 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|