A059132 A hierarchical sequence (W2{2}c - see A059126).
4, 10, 4, 16, 4, 10, 4, 22, 4, 10, 4, 16, 4, 10, 4, 28, 4, 10, 4, 16, 4, 10, 4, 22, 4, 10, 4, 16, 4, 10, 4, 34, 4, 10, 4, 16, 4, 10, 4, 22, 4, 10, 4, 16, 4, 10, 4, 28, 4, 10, 4, 16, 4, 10, 4, 22, 4, 10, 4, 16, 4, 10, 4, 40, 4, 10, 4, 16, 4, 10, 4, 22, 4, 10, 4, 16, 4, 10, 4, 28, 4, 10, 4, 16
Offset: 0
Links
- Antti Karttunen, Table of n, a(n) for n = 0..16383
- Jonas Wallgren, Hierarchical sequences
Programs
-
Mathematica
Array[6 IntegerExponent[2 #, 2] - 2 &, 105] (* Michael De Vlieger, Nov 02 2018 *)
-
PARI
A059132(n) = if(!(n%2), 4, 6+A059132((n-1)/2)); \\ Antti Karttunen, Nov 01 2018
Formula
a(n) = 4 + 6*A007814(n+1). a(2n) = 4, a(2n+1) = a(n) + 6. - Ralf Stephan, Oct 09 2003. Typo in the first formula corrected by Antti Karttunen, Nov 01 2018