OFFSET
1,1
FORMULA
a(n) = 3*n if n is a power of 2, a(n) = n else. - Alois P. Heinz, Aug 01 2016
EXAMPLE
n=1, 3=1+2; n=2, 6 = 1 + 2 + 3; n=3, 3 = 1 + 2; n=4, 12 = 3 + 4 + 5;
n=5, 5=2+3; n=6, 6=1+2+3; n=7, 7=3+4; n=8, 24=7+ 8+ 9;
n=9, 9=4+5; n=10, 10=1+2+3+4; n=11, 11=5+6; n=12, 12=3+4+5;
n=13, 13=6+7; n=14, 14=2+3+4+5; n=15, 15=7+8.
MAPLE
a:= n-> `if`(2^ilog2(n)=n, 3*n, n):
seq(a(n), n=1..70); # Alois P. Heinz, Aug 01 2016
PROG
(PARI) a(n)=if(n>>valuation(n, 2)==1, 3*n, n) \\ Charles R Greathouse IV, Aug 01 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Aug 01 2016
EXTENSIONS
More terms from Alois P. Heinz, Aug 01 2016
STATUS
approved