A076576 Erroneous version of A084255.
4, 3, 2, 3, 3, 2, 9, 8, 7, 1, 8, 5, 9
Offset: 0
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.
2.313036736433582906383951602641782476396689771803256340210124442144564731776...
RealDigits[ N[ FromContinuedFraction[ Table[ Prime[n], {n, 1, 100} ]], 100]] [[1]] RealDigits[FromContinuedFraction[Prime[Range[200]]],10,120][[1]] (* Harvey P. Dale, Sep 06 2021 *)
0.67740177613066042797630631643196719199252141284...
RealDigits[x/.FindRoot[1==Sum[x^Prime[n], {n, 150}], {x, {0, 1}}, WorkingPrecision->100]][[1]] (* T. D. Noe, Oct 14 2003 *)
1.4323320871859028689092537...
RealDigits[N[FromContinuedFraction[Prepend[Table[Prime[n], {n, 1, 100}], 1]], 100]][[1]]
0.432332358381693654053000252513757798296184227045212...
RealDigits[(1 - 1/E^2)/2 , 10, 104] // First
0.24019347271354040290765990165361943880486990402195476057141424611256753...
with(numtheory); P:=proc(q) local a,n; a:=0; for n from q by -1 to 4 do if not isprime(n) then a:=1/(a+n); fi; od; print(evalf(a,120)); end: P(10^4);
RealDigits[ Fold[1/(#1 + #2) &, 1, Reverse[ Composite@# & /@ Range@40]], 10, 111][[1]] (* Robert G. Wilson v, Apr 29 2018 *)
0.6981621154383939035335... = 1/(1+1/(2+1/(3+1/(5+1/(7+1/(11+1/(13+1/...))))))).
4.163310470941149346202768593813039507043958...
0.58152500459221465439915170481800446195586754...
Comments