OFFSET
1,1
COMMENTS
For n <= 5, the values k <= 10^6 such that sigma(sigma(k)) = sigma(sigma(k) - k) + n*k are:
For n = 1; 4, 144, 16384.
For n = 2; 3, 7, 8, 31, 84, 127, 8191, 35743, 42048, 131071, 524287.
For n = 3; 14, 20, 372, 1081, 16246, 98292.
For n = 4; 54, 168, 308, 504, 994, 3870, 4994, 7800, 16488, 17360, 51995, 475664.
For n = 5; 1496, 1704, 14976, 21552, 379938, 854168.
a(10) = 16708685994, a(9) > 6*10^11. - Giovanni Resta, Sep 18 2017
PROG
(PARI) a(n) = {my(k=2); while(sigma(sigma(k))-sigma(sigma(k)-k) != n*k, k++); k; }
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Altug Alkan, Sep 16 2017
EXTENSIONS
a(8) from Giovanni Resta, Sep 18 2017
STATUS
approved