OFFSET
1,2
EXAMPLE
a(1)=1: 1;
a(2)=7: 2->7;
a(3)=19: 3->14->19;
a(4)=37: 4->21->32->37;
a(5)=61: 5->28->45->56->61;
a(6)=87: 6->35->56->72->82->87;
a(7)=123: 7->42->70->92->108->118->123;
a(8)=163: 8->49->84->110->132->147->158->163;
a(9)=207: 9->56->91->126->155->176->192->202->207;
a(10)=253: 10->63->104->140->174->200->220->237->248->253.
MATHEMATICA
f[n_] := Fold[ #2*Ceiling[ #1/#2 + 5] &, n, Reverse@Range[n - 1]]; Array[f, 47]
PROG
(PARI) a(n)=local(A=n, D); for(i=1, n-1, D=n-i; A=D*ceil(A/D+5)); A
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 12 2005
EXTENSIONS
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 31 2007
STATUS
approved