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,2

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A184986 A018547 A018383 * A051513 A087257 A033496

Adjacent sequences: A320422 A320423 A320424 * A320426 A320427 A320428

Keyword

nonn

Author

Robert G. Wilson v, Jan 08 2019

Status

approved