A320425 Numbers k such that sigma(sigma(k^4)) == 0 (mod k^2).

1, 2, 4, 8, 16, 19, 38, 76, 152, 304, 608, 1216, 1824, 3744, 3840, 4864, 6400, 7904, 11520, 14592, 19200, 21888, 23712, 24320, 25536, 32768, 33696, 34560, 43776, 71136, 72960, 80640, 102144, 103680, 114688, 121600, 134400, 134784, 213408, 218880, 306432, 311296, 364800, 403200

Offset: 1

Author

Robert G. Wilson v, Jan 08 2019

Keywords

• nonn

Comments

Inspired by Allan C. Wechsler in seqfan list, Jan 07 2019.

Are 1 and 19 the only odd terms?

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..70

Crossrefs

Cf. A202994 (sigma(n^4)).

Programs

Mathematica

fQ[n_] := Mod[DivisorSigma[1, DivisorSigma[1, n^4]], n^2] == 0; Select[Range@ 476671, fQ]

PARI

isok(n) = (sigma(sigma(n^4)) % n^2) == 0; \\ Michel Marcus, Jan 09 2019