login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178965 a(n) = numerator of Sum_{k>=1} floor(n/k)/2^k. 1
0, 1, 5, 15, 43, 103, 263, 591, 1391, 3103, 7007, 15039, 33983, 72063, 156543, 334591, 722687, 1510911, 3255807, 6773759, 14433279, 30193663, 63535103, 131264511, 278589439, 575004671, 1200349183, 2484846591, 5189910527, 10648256511, 22287450111, 45648642047 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Jinyuan Wang, Table of n, a(n) for n = 0..1000

FORMULA

a(n) = Sum_{i=1..n} 2^(n-i)*floor(n/i). - Ridouane Oudra, Jul 30 2019

EXAMPLE

a(3)=15 because Sum_{k>=1} floor(3/k)/2^k = 15/8.

MAPLE

seq(add(2^(n-i)*floor(n/i), i=1..n), n=0..60); # Ridouane Oudra, Jul 30 2019

MATHEMATICA

Table[Numerator[Sum[Floor[n/k]/2^k, {k, 1, Infinity}]], {n, 0, 25}]

PROG

(MAGMA) [0] cat [&+[2^(n-i)*Floor(n/i):i in [1..n]]:n in [1..25]]; // Marius A. Burtea, Jul 30 2019

(PARI) a(n) = numerator(sum(k=1, n, floor(n/k)/2^k)); \\ Jinyuan Wang, Jul 31 2019

CROSSREFS

Sequence in context: A111295 A200760 A032193 * A005665 A025471 A064453

Adjacent sequences:  A178962 A178963 A178964 * A178966 A178967 A178968

KEYWORD

nonn,frac

AUTHOR

Vladimir Reshetnikov, Dec 31 2010

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 11 14:30 EDT 2020. Contains 335626 sequences. (Running on oeis4.)