|
|
A349063
|
|
Numbers k such that k and k+1 have the same sum of powerful divisors (A183097) and this sum is larger than 1.
|
|
1
|
|
|
2988, 4067, 7595, 13572, 14651, 24156, 25235, 27684, 28763, 34740, 35819, 38268, 39347, 41327, 46403, 48852, 49931, 56987, 59436, 66492, 70020, 78155, 81683, 87660, 88739, 91188, 98244, 99323, 101772, 102851, 108828, 109907, 112356, 113435, 119412, 120491, 122940
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
f[p_, e_] := (p^(e + 1) - 1)/(p - 1) - p; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := (s1 = s[n]) > 1 && s1 == s[n + 1]; Select[Range[10^5], q]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|