|
Search: id:A095376
|
|
|
| A095376 |
|
Values of n such that the total number of 1's in the binary expansions of the first n integers is a multiple of n. |
|
+0
1
|
|
| 1, 2, 14, 62, 65, 77, 254, 322, 323, 327, 331, 332, 1022, 1281, 1341, 1348, 1349, 1350, 1352, 1353, 1354, 4094, 16382, 21505, 21757, 21762, 21820, 65534, 87299, 87355, 262142, 348161, 349181, 1048574, 1397762, 1398012, 1398020, 1398074, 4194302
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
Integer solutions to {A000788(x)/x is integer}.
|
|
EXAMPLE
|
n=14: {1,10,11,10,101,110,111,1000,1001,1010,1011,1100,1101,1110} incudes 28 1's so A000788(14)/14=2 is integer, thus 14 is here.
|
|
MATHEMATICA
|
lib[x_]:=Count[IntegerDigits[x, 2], 1] {s=0, ta=Table[0, {100}], tb=Table[0, {100}], u=1}; Do[s=s+lib[n]; w=n; If[IntegerQ[s/n], Print[{n, s/n}]; ta[[u]]=n; tb[[u]]=s/n; u=u+1], {n, 1, 100000000}] ta tb {w, s} TimeUsed[]-t1
|
|
CROSSREFS
|
Cf. A000120, A000788, A014499, A095375.
Sequence in context: A114146 A096367 A058738 this_sequence A153332 A144657 A167555
Adjacent sequences: A095373 A095374 A095375 this_sequence A095377 A095378 A095379
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 07 2004
|
|
|
Search completed in 0.002 seconds
|
