A145000 Denominators of an Egyptian fraction for 1/Sqrt[26] = 0.196116135138...
6, 34, 26523, 1562387946, 2711148268367282801, 12495200597418585355327760706720583332, 249241682973403163668428197861526798556923221288701528163601730404432403391
Offset: 1
Crossrefs
Programs
-
Mathematica
a = {}; k = N[1/Sqrt[26], 1000]; Do[s = Ceiling[1/k]; AppendTo[a, s]; k = k - 1/s, {n, 1, 10}]; a (*Artur Jasinski*)