This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A100773 #9 Sep 20 2019 14:52:43 %S A100773 1,2,3,4,10,12,28,32,144,480,1056,1152,4992,5376,11520,36864,208896, %T A100773 221184,1400832,1474560,6193152,19464192,40697856,42467328,353894400, %U A100773 1840250880,3822059520,21403533312,88671780864,91729428480,568722456576 %N 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). %H A100773 Harvey P. Dale, <a href="/A100773/b100773.txt">Table of n, a(n) for n = 1..1000</a> %e A100773 a(6) = 12, a(7) = (7*12)/3 = 28. %t A100773 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 *) %Y A100773 Cf. A002639. %K A100773 easy,nonn %O A100773 1,2 %A A100773 _Amarnath Murthy_, Nov 28 2004 %E A100773 Extended by _Ray Chandler_, Dec 10 2004