A094340 a(n) = n-th partial sum of A094339 divided by A094339(n+1).
2, 1, 1, 3, 2, 2, 4, 9, 5, 4, 3, 5, 5, 9, 5, 4, 8, 15, 8, 12, 27, 52, 7, 4, 2, 5, 3, 6, 106, 14, 5, 9, 5, 4, 6, 107, 180, 21, 362, 121, 183, 176, 69, 59, 150, 28, 151, 232, 19, 10, 2, 11, 9, 233, 360, 247, 304, 155, 244, 195, 98, 231, 174, 196, 50, 591, 296, 198, 51, 199, 160, 115
Offset: 1
Keywords
Programs
-
Maple
A094339 := proc(nmax) local a,n,sprev,i; a := [2] ; while nops(a) < nmax do sprev := add(i,i=a) ; n := 1 ; while sprev mod n <> 0 or n in a do n := n+1 ; od ; a := [op(a),n] ; od ; RETURN(a) ; end: A094340 := proc(a094339,n) add( op(i,a094339),i=1..n)/op(n+1,a094339) ; end: a094339 := A094339(100) ; for n from 1 to nops(a094339)-1 do printf("%d, ", A094340(a094339,n)) ; od ; # R. J. Mathar, Apr 30 2007
Extensions
Corrected and extended by R. J. Mathar, Apr 30 2007
Comments