|
|
A182302
|
|
Composite numbers that are not perfect powers whose prime factors have equal numbers of bits.
|
|
2
|
|
|
6, 12, 18, 24, 35, 48, 54, 72, 96, 108, 143, 162, 175, 192, 245, 288, 323, 384, 391, 432, 437, 486, 493, 527, 551, 589, 648, 667, 713, 768, 864, 875, 899, 972, 1152, 1458, 1517, 1536, 1573, 1591, 1715, 1739, 1763, 1859, 1927, 1944, 1961, 2021, 2173, 2183, 2257
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
35 = 5*7 -> 101*111, therefore 35 is a term.
36 = 6^2 -> 10*10*11*11, therefore 36 is not a term.
|
|
MATHEMATICA
|
lst1 = {}; lst2 = {}; r = 2257; Do[b = IntegerDigits[FactorInteger[n], 2]; If[! PrimeQ[n] && Length[b[[-1, 1]]] == Length[b[[1, 1]]], AppendTo[lst1, n]], {n, 4, r}]; lst2 = Complement[lst1, Union[Flatten[Table[n^i, {i, 2, Log[2, r]}, {n, 2, r^(1/i)}]]]]; lst2
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|