A151712 a(n) = A048883(n) + 1.
2, 4, 4, 10, 4, 10, 10, 28, 4, 10, 10, 28, 10, 28, 28, 82, 4, 10, 10, 28, 10, 28, 28, 82, 10, 28, 28, 82, 28, 82, 82, 244, 4, 10, 10, 28, 10, 28, 28, 82, 10, 28, 28, 82, 28, 82, 82, 244, 10, 28, 28, 82, 28, 82, 82, 244, 28, 82, 82, 244, 82, 244, 244, 730, 4, 10, 10, 28, 10, 28, 28
Offset: 0
Examples
If written as a triangle: 2; 4; 4,10; 4,10,10,28; 4,10,10,28,10,28,28,82; 4,10,10,28,10,28,28,82,10,28,28,82,28,82,82,244;
Links
- Paolo Xausa, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
A151712list[nmax_]:=3^DigitCount[Range[0,nmax],2,1]+1;A151712list[100] (* Paolo Xausa, Jul 15 2023 *)
Extensions
Simpler definition, new offset and more terms from N. J. A. Sloane, Jul 22 2009
Comments