A164530 a(1)=1. a(n) = the smallest multiple of d(n) that is > a(n-1), where d(n) = the number of positive divisors of n.

1, 2, 4, 6, 8, 12, 14, 16, 18, 20, 22, 24, 26, 28, 32, 35, 36, 42, 44, 48, 52, 56, 58, 64, 66, 68, 72, 78, 80, 88, 90, 96, 100, 104, 108, 117, 118, 120, 124, 128, 130, 136, 138, 144, 150, 152, 154, 160, 162, 168, 172, 174, 176, 184, 188, 192, 196, 200, 202, 204, 206

Offset

1,2

Links

John Tyler Rascoe, Table of n, a(n) for n = 1..10000

Mathematica

Block[{n = 1, d}, NestList[(d = DivisorSigma[0, ++n]) * Floor[# / d + 1] &, 1, 100]] (* Paolo Xausa, Mar 21 2024 *)

Prog

(PARI)
A164530_list(nmax)={my(A=vector(nmax)); A[1]=1;
for(k=2, nmax, my(i=1); while(numdiv(k)*i<A[k-1]+1, i+=1); A[k]=numdiv(k)*i); A}
A164530_list(100) \\ John Tyler Rascoe, Mar 20 2024

Crossrefs

Cf. A000005, A164531.

Sequence in context: A350355 A172311 A103829 * A058817 A328593 A254748

Adjacent sequences: A164527 A164528 A164529 * A164531 A164532 A164533

Keyword

nonn,easy

Author

Leroy Quet, Aug 15 2009

Extensions

Extended by Ray Chandler, Mar 15 2010

Status

approved