A100773 a(1) = 1, a(2) = (2*1)/1 = 2. a(n+1) = (n+1)*a(n) divided by the largest prime divisor of a(n).

1, 2, 3, 4, 10, 12, 28, 32, 144, 480, 1056, 1152, 4992, 5376, 11520, 36864, 208896, 221184, 1400832, 1474560, 6193152, 19464192, 40697856, 42467328, 353894400, 1840250880, 3822059520, 21403533312, 88671780864, 91729428480, 568722456576

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(6) = 12, a(7) = (7*12)/3 = 28.

Mathematica

nxt[{n_, a_}]:={n+1, (a(n+1))/FactorInteger[a][[-1, 1]]}; NestList[nxt, {1, 1}, 30][[All, 2]] (* Harvey P. Dale, Sep 20 2019 *)

Crossrefs

Cf. A002639.

Sequence in context: A339577 A049548 A005456 * A250112 A193775 A131120

Adjacent sequences: A100770 A100771 A100772 * A100774 A100775 A100776

Keyword

easy,nonn

Author

Amarnath Murthy, Nov 28 2004

Extensions

Extended by Ray Chandler, Dec 10 2004

Status

approved