login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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, 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
Sequence in context: A341414 A086245 A247392 * A021266 A054399 A013676
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 16:58 EDT 2024. Contains 371254 sequences. (Running on oeis4.)