A205597 Odd terms of A019278: odd n such that sigma(sigma(n))/n is an integer.
1, 15, 21, 1023, 29127, 550095, 355744082763
Offset: 1
Examples
15 is odd, sigma(15) = 24, sigma(24) = 60, and 60/15 is an integer.
Programs
-
Mathematica
Select[Range[1, 10^6, 2], Mod[Nest[DivisorSigma[1, #] &, #, 2], #] == 0 &] (* Michael De Vlieger, Mar 19 2021 *)
-
PARI
isok(n) = (n%2) && (denominator(sigma(sigma(n))/n) == 1); \\ Michel Marcus, Sep 27 2017
Comments