OFFSET
1,2
EXAMPLE
a(2) = A125314(6) = 1556.
MATHEMATICA
k = s = 1; p = 1; lst = {}; While[k < 5000, If[Mod[p, s] == 0, AppendTo[lst, k]]; k++; s = s + k^6; p = p*k^6]; lst (* G. C. Greubel, May 18 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Oct 18 2009
EXTENSIONS
More terms from Max Alekseyev, Sep 30 2010
STATUS
approved