A344010 Row 2 of array in A344009.
3, 5, 8, 11, 16, 20, 24, 32, 36, 46, 54, 59, 72, 80, 90, 106, 114, 120, 142, 152, 168, 180, 198, 212, 228, 252, 270, 276, 318, 324, 334
Offset: 1
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.
To get 10th term: 10->18->24->28->30->30->32->33->34->34.
a002491 n = a002491_list !! (n-1) a002491_list = sieve 1 [1..] where sieve k (x:xs) = x : sieve (k+1) (mancala xs) where mancala xs = us ++ mancala vs where (us,v:vs) = splitAt k xs -- Reinhard Zumkeller, Oct 31 2012
# A002491 # program due to B. Gourevitch a := proc(n) local x,f,i,y; x := n; f := n; for i from x by -1 to 2 do y := i-1; while y < f do y := y+i-1 od; f := y od end: seq(a(n), n = 2 .. 53);
f[n_] := Fold[ #2*Ceiling[ #1/#2 + 0] &, n, Reverse@Range[n - 1]]; Array[f, 56] (* Robert G. Wilson v, Nov 05 2005 *) del[list_, k_] := Delete[list, Table[{i}, {i, k, Length[list], k}]]; a[n_] := Last@NestWhile[{#[[1]] + 1, del[Rest@#[[2]], #[[1]] + 1], Append[#[[3]], First@#[[2]]]} &, {1,Range[n], {}}, #[[2]] =!= {} &]; a[1000] (* Birkas Gyorgy, Feb 26 2011 *) Table[1 + First@FixedPoint[{Floor[#[[1]]*(#[[2]] + 1/2)/#[[2]]], #[[2]] + 1} &, {n, 1}, SameTest -> (#1[[1]] == #2[[1]] &)], {n, 0, 30}] (* Birkas Gyorgy, Mar 07 2011 *) f[n_]:=Block[{x,p},For[x=p=1, p<=n, p++, x=Ceiling[(n+2-p)x/(n+1-p)]];x] (* Don Knuth, May 27 2021 *)
a(n)=forstep(k=n-1,2,-1, n=((n-1)\k+1)*k); n \\ Charles R Greathouse IV, Mar 29 2016
Comments