OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..100
PROG
(PARI) a(n) = my(k=1); while (sumdiv(k, d, (d%5)==1) != n, k++); k; \\ Michel Marcus, Jul 29 2023
(PARI) list(nmax) = {my(v = vector(nmax), c = 0, k = 1, i); while(c < nmax, i = sumdiv(k, d, d % 5 == 1); if(i <= nmax && v[i] == 0, c++; v[i] = k); k++); v; } \\ Amiram Eldar, Jan 28 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 28 2023
STATUS
approved
