

A219995


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


2



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
(list;
constant;
graph;
refs;
listen;
history;
text;
internal format)



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 JeanFrançois Alcover at A215940 *)


PROG

(PARI) See LINKS.


CROSSREFS

Cf. A215940, A217626.
Sequence in context: A238169 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



