OFFSET

1,2

COMMENTS

a(11) > 8*10^10, if it exists.

The corresponding ratios A353900(k)/k are 1, 2, 2, 1, 2, 1, 4, 2, 2, 1, ...

EXAMPLE

MATHEMATICA

f[p_, e_] := 1 + Sum[p^(2^k), {k, 0, Floor[Log2[e]]}]; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[6.5*10^6], Divisible[s[#], #] &]

CROSSREFS

KEYWORD

nonn,more

AUTHOR

Amiram Eldar, May 10 2022

STATUS

approved