A223856 Decimal representation of continued fraction tau(1), tau(2), tau(3), tau(4), ...

1, 4, 1, 0, 3, 9, 1, 0, 2, 7, 8, 6, 3, 6, 3, 0, 3, 6, 0, 9, 6, 2, 6, 1, 8, 4, 7, 4, 5, 5, 3, 0, 5, 5, 8, 9, 0, 9, 4, 5, 7, 6, 0, 0, 9, 7, 3, 8, 2, 2, 0, 0, 5, 0, 3, 2, 6, 4, 0, 5, 4, 3, 0, 8, 7, 1, 1, 3, 7, 6, 1, 1, 1, 0, 0, 3, 2, 0, 1, 1, 0, 9, 3, 7, 7, 8, 4

Offset

1,2

Links

Paolo P. Lava, Table of n, a(n) for n = 1..1000

Example

1.410391027863630360962618474553... = [1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2, 6, 2, 4, 4, ...]

Maple

with(numtheory);
A223856:=proc(q) local a, n; a:=tau(q+1);
for n from q by -1 to 1 do a:=1/a+tau(n); od; print(evalf(a, 100)); end:
A223856(10^5);

Mathematica

digits = 100; Flatten[ContinuedFraction[Table[DivisorSigma[0, n], {n, 1, digits}]]] // FromContinuedFraction // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 24 2014 *)

Crossrefs

Cf. A000005, A223854, A223855.

Sequence in context: A283879 A216178 A122899 * A153661 A266392 A021713

Adjacent sequences: A223853 A223854 A223855 * A223857 A223858 A223859

Keyword

nonn,cons

Author

Paolo P. Lava, Mar 28 2013

Status

approved