|
|
A344733
|
|
Numbers k such that k divides A327573(k).
|
|
2
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The corresponding quotients A327573(k)/k are 1, 3, 5, 7, 11, 11, 11, 15, 17, ...
a(10) > 7.5*10^10, if it exists.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 1 since A327573(1) = 1 is divisible by 1.
a(2) = 25 since A327573(25) = 75 = 3 * 25 is divisible by 25.
|
|
MATHEMATICA
|
f[p_, e_] := 2^DigitCount[e, 2, 1]; s[1] = 1; s[n_] := s[n] = s[n - 1] + Times @@ f @@@ FactorInteger[n]; Select[Range[1.5*10^6], Divisible[s[#], #] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|