|
1, 7, 13, 26, 37, 41, 42, 45, 49, 50, 58, 59, 62, 69, 70, 74, 78, 79, 87, 103, 105, 107, 110, 114, 118, 121, 134, 139, 141, 142, 145, 147, 158, 161, 162, 164, 165, 168, 175, 185, 189, 198, 202, 203, 213, 214, 223, 227, 232, 234, 243, 267, 275, 282, 289, 292
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
In binary representation 70='1000110' has three 1's and A000040(70)=349='101011101' has three 1's: therefore 70 is a term.
|
|
MATHEMATICA
|
Select[Range[300], DigitCount[#, 2, 1]==DigitCount[Prime[#], 2, 0]&] (* Harvey P. Dale, May 02 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|