A014858 Numbers k that divide s(k), where s(1)=1, s(j)=11*s(j-1)+j.

1, 5, 11, 25, 55, 125, 275, 625, 1375, 3125, 6875, 15625, 16105, 34375, 75025, 78125, 80525, 171875, 173767, 177155, 375125, 390625, 402625, 603775, 825275, 859375, 868835, 885775, 1391555, 1875625, 1953125, 2013125, 2153855, 3018875, 4126375, 4296875, 4344175

Offset: 1

Author

N. J. A. Sloane, Olivier Gérard

Keywords

• nonn

Crossrefs

s(n) = A014881(n).

Programs

Mathematica

nxt[{n_,s_}]:={n+1,11s+n+1}; Transpose[Select[NestList[nxt,{1,1},3000000],Divisible[Last[#],First[#]]&]][[1]] (* Harvey P. Dale, Aug 21 2013 *)

PARI

lista(nn) = my(s); for(k=1, nn, s=11*s+k; if(s%k==0, print1(k, ", "))); \\ Jinyuan Wang, Aug 08 2021

Extensions

More terms from Kok Seng Chua (chuaks(AT)ihpc.nus.edu.sg), Jan 30 2001

More terms from Jinyuan Wang, Aug 08 2021