# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a088482 Showing 1-1 of 1 %I A088482 #15 Dec 18 2022 07:49:02 %S A088482 5,4,10,4,9,4,25,4,13,4,26,4,17,4,64,4,21,4,42,4,25,4,73,4,29,4,58,4, %T A088482 33,4,128,4,37,4,74,4,41,4,121,4,45,4,90,4,49,4,192,4,53,4,106,4,57,4, %U A088482 169,4,61,4,122,4,65,4,256,4,69,4,138,4,73,4,217,4,77,4,154,4,81,4,320,4,85 %N A088482 Let pk[n_]=n!/Product[i, {i, 1, n-Floor[n/2^k]}]. Then a(n) = Sum[Floor[pk[n]/pk[n-1]], {k, 1, 4}]. %t A088482 digits=200 %t A088482 p1[n_]=n!/Product[i, {i, 1, n-Floor[n/2]}] %t A088482 p2[n_]=n!/Product[i, {i, 1, n-Floor[n/4]}] %t A088482 p3[n_]=n!/Product[i, {i, 1, n-Floor[n/8]}] %t A088482 p4[n_]=n!/Product[i, {i, 1, n-Floor[n/16]}] %t A088482 a1=Table[Floor[p1[n]/p1[n-1]], {n, 2, digits}] %t A088482 a2=Table[Floor[p2[n]/p2[n-1]], {n, 2, digits}] %t A088482 a3=Table[Floor[p3[n]/p3[n-1]], {n, 2, digits}] %t A088482 a4=Table[Floor[p4[n]/p4[n-1]], {n, 2, digits}] %t A088482 at=Table[a1[[n-1]]+a2[[n-1]]+a3[[n-1]]+a4[[n-1]], {n, 2, digits}] %K A088482 nonn,uned,less %O A088482 0,1 %A A088482 _Roger L. Bagula_, Nov 09 2003 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE