|
|
|
|
2, 3, 4, 7, 8, 16, 20, 31, 35, 127, 143, 208, 256, 650, 1479, 2464, 2623, 4233, 4345, 5183, 8099, 8191, 9424, 11024, 11919, 12099, 14905, 16159, 20220, 20800, 21716, 22194, 24335, 26123, 27335, 27390, 30457, 34945, 38180, 40425, 52206, 56563, 65536, 67123, 68264
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A variation of A064111 and A228126 with unitary prime-power divisors instead of prime divisors.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
s[1] = 0; s[n_] := Plus @@ (Power @@@ FactorInteger[n]); seq = {}; s1 = 0; Do[s2 = s[n]; If[s1 + 1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 10^5}]; seq
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|