A097013 Smallest x such that sigma(x) mod 30 = n.

24, 1, 21, 2, 3, 923521, 5, 4, 7, 18, 27, 2401, 6, 9, 13, 8, 217, 9604, 10, 1089, 19, 98, 91, 21609, 14, 14641, 28, 49, 12, 2614689

Offset: 0

Author

Labos Elemer, Aug 19 2004

Keywords

• fini
• full
• nonn

Comments

Compare with A084303.

Row 30 of A074625 (apart from different ordering). - Michel Marcus, Dec 19 2013

Crossrefs

Cf. A000203, A084301, A084303, A097011, A097012, A097014, A097015.

Programs

Mathematica

t=Table[Mod[DivisorSigma[1, w], 30], {w, 1, 2700000}]; Table[Min[Flatten[Position[t, j]]], {j, 0, 29}]