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!)
A337079 The number of twin binary Niven numbers (k, k+1) such that k <= 2^n. 0
1, 1, 1, 1, 2, 2, 5, 8, 18, 35, 61, 98, 187, 304, 492, 880, 1583, 2779, 5196, 9407, 17387, 31772, 58450, 106360, 193875, 351836, 642844, 1173333, 2155913, 3993379, 7466547, 14048253, 26680668, 50751057, 97052665, 185557893, 354235368, 674995568, 1284856970 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,5
LINKS
Jean-Marie De Koninck, Nicolas Doyon and Imre Kátai, Counting the number of twin Niven numbers, The Ramanujan Journal, Vol. 17, No .1 (2008), pp. 89-105, alternative link.
FORMULA
a(n) ~ c * 2^n/n^2, where c is a constant (consequence of the theorem of De Koninck et al., 2008). Apparently c ~ 0.28.
EXAMPLE
a(5) = 2 since there are two binary Niven numbers k below 2^5 = 32 such that k+1 is also a binary Niven number: 1 and 20.
MATHEMATICA
binNivenQ[n_] := Divisible[n, DigitCount[n, 2, 1]]; s = {}; c = 0; p = 2; q1 = True; Do[q2 = binNivenQ[n]; If[q1 && q2, c++]; If[n - 1 == p, AppendTo[s, c]; p *= 2]; q1 = q2, {n, 2, 2^20}]; s
CROSSREFS
Sequence in context: A367717 A052531 A257517 * A095005 A209066 A344036
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Aug 14 2020
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 14:21 EDT 2024. Contains 371254 sequences. (Running on oeis4.)