A219995 Decimal expansion of Sum_{n >= 1, b(n) != 1} 1/b(n)^n, where b(n) = A217626(n).

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

Offset

0,2

Comments

Decimal expansion of the limit to which tends the difference between the series for 1/A217626(x) and the Gamma function evaluated for M, where 2<M and 1<=x<M!. - R. J. Cano, May 25 2017

Links

R. J. Cano, Table of n, a(n) for n = 0..4999

R. J. Cano, Sequencer program.

Example

0.138159806610613873514870900106308683044855277244...

Mathematica

First@ RealDigits@ N[#, 108] &@ Total@Map[1/#1^#2 & @@ # &, DeleteCases[ MapIndexed[{#1, First@ #2} &, #], _?(First@ # == 1 &)]] &@ Differences@ Flatten@ Table[(Drop[#, If[m == 1, 0, (m - 1)!]] - First@ #)/9 &@ Map[FromDigits, Permutations@ Range@ m], {m, 7}] (* Michael De Vlieger, May 25 2017, after Jean-François Alcover at A215940 *)

Prog

(PARI) See LINKS.

Crossrefs

Cf. A215940, A217626.

Sequence in context: A341414 A086245 A247392 * A021266 A054399 A013676

Adjacent sequences: A219992 A219993 A219994 * A219996 A219997 A219998

Keyword

nonn,base,easy,cons

Author

R. J. Cano, Dec 02 2012

Extensions

Edited by N. J. A. Sloane, Dec 03 2012

Offset corrected by Rick L. Shepherd, Jan 14 2014

Status

approved