A093125 k associated with A093124.

0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 7, 6, 7, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 13, 13, 14, 13, 13, 14, 15, 16, 17, 17, 17, 17, 17

Offset

1,10

Links

Table of n, a(n) for n=1..80.

Prog

(PARI) lista(nn) = my(v=vector(nn), vk=vector(nn)); v[1]=sigma(1); for (i=2, nn, k=0; while (sum(j=i-k, i, sigma(j))<v[i-1], k++); vk[i-1] = k; v[i]=sum(j=i-k, i, sigma(j))); vk; \\ edited by Michel Marcus, Dec 28 2022

Crossrefs

Cf. A093124.

Sequence in context: A294234 A078767 A331137 * A226390 A156081 A368991

Adjacent sequences: A093122 A093123 A093124 * A093126 A093127 A093128

Keyword

nonn

Author

Jon Perry, Mar 22 2004

Extensions

More terms from Michel Marcus, Dec 28 2022

Status

approved