login
A124260
a(n) = Sum_{k=1..A124259(n)} n^k.
2
4, 126, 12, 4, 780, 94036996914, 56, 8, 9, 1111111110, 132, 12, 30940, 8108730, 240, 16, 306, 18, 380, 20, 204204, 11154, 552, 24, 25, 702, 27, 28, 732540, 27930, 992, 32, 1222980, 62556901638174, 1260, 36, 1926220, 2141490, 1560, 40, 2896404
OFFSET
1,1
LINKS
FORMULA
a(A013929(n)) = A013929(n).
MATHEMATICA
a[n_] := Module[{k = 1, s = n}, While[SquareFreeQ[s], k++; s += n^k]; s]; Array[a, 100] (* Amiram Eldar, Dec 26 2020 *)
PROG
(PARI) a(n) = my(k=1, s); while (issquarefree(s=sum(i=1, k, n^i)), k++); s; \\ Michel Marcus, Dec 26 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 23 2006
STATUS
approved