A094302 a(1) = 1; if n > a(n-1) then a(n) = n*a(n-1) else a(n) = least integer multiple of a(n-1)/n.

1, 2, 6, 3, 15, 5, 35, 35, 35, 7, 77, 77, 77, 11, 165, 165, 165, 55, 55, 11, 231, 21, 483, 161, 161, 161, 161, 23, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 667, 29, 1363, 1363, 1363, 1363, 1363, 1363, 1363, 1363, 1363, 1363

Offset: 1

Author

Amarnath Murthy, Apr 29 2004

Keywords

• nonn
• easy

Examples

			a(16) = 165, 17 < 165, so a(17) = (least integer multiple of 165/17) = 165.
		

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A094299, A055773.

Programs

Mathematica

FoldList[If[#2 > #1, #1*#2, Numerator[#1/#2]] &, 1, Range[2, 56]] (* Ivan Neretin, Mar 21 2018 *)

PARI

q=1;for(n=2,57,print1(q,",");q=if(n>q,q*n,q/gcd(q,n)))

Extensions

Edited by Klaus Brockhaus, May 02 2004