A075103 Integer reached in A075102.
2, 2, 8, 4, 2016, 1350550961316868219904983232715008, 45663638338374385821895380178233982310400, 32, 10515968, 153189575599610658965347775471616, 34816, 116736
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.
a(7) = 3 since 8/7 -> 16/7 -> 48/7 -> 48.
Table[{n, First[Flatten[Position[Map[Denominator, NestList[ # Ceiling[ # ] &, (n + 1)/n, 20]], 1]]]}, {n, 1, 20}] f[n_] := Block[{k = (n + 1)/n, c = 0}, While[ !IntegerQ[k], c++; k = Mod[k*Ceiling[k], n^250]]; c]; Table[ f[n], {n, 1, 100}] Table[lim=50; While[k=0; x=1+1/n; m=n^lim; While[kT. D. Noe, Apr 10 2006 *)
a(5)=2 since 5/floor(log_2(5)) = 5/2 -> 15/2 -> 60 = A075108(5).
a(13)=3 since 13/floor(sqrt(13)) = 13/3 -> 65/3 -> 1430/3 -> 227370 = A075121(13).
Comments