|
|
|
|
-1, 2, 3, 6, 7, 8, 9, 10, 11, 17, 36, 45, 48, 54, 56, 67, 69, 76, 97, 118, 119, 120, 219, 231, 249, 258, 286, 299, 302, 356, 367, 377, 392, 455, 471, 533, 547, 563, 573, 576, 647, 1033, 1096, 1125, 1129, 1157, 1178, 1334, 1405, 1439, 1587, 1664, 1721, 1952
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Number of terms less than 10^k with 0 <= k <= 7: {0, 1, 6, 18, 32, 51, 68, 96}.
|
|
LINKS
|
|
|
EXAMPLE
|
A299990(1) = -1, thus this is the first record. A299990(30) = 2 and is the first term greater than -1, thus 30 is the second term of this sequence. Observe that A243822(1) is 0 and A000005(1) is 1; 0 - 1 = -1. A243822(30) is 10 and A000005(30) = 8; 10 - 8 = 2.
|
|
MATHEMATICA
|
Union@ FoldList[Max, Table[Count[Range[n], _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] - 2 DivisorSigma[0, n], {n, 10^3}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|