A302338 a(n) = 3*n + 2^v(n) where v(n) denotes the 2-adic valuation of n.
4, 8, 10, 16, 16, 20, 22, 32, 28, 32, 34, 40, 40, 44, 46, 64, 52, 56, 58, 64, 64, 68, 70, 80, 76, 80, 82, 88, 88, 92, 94, 128, 100, 104, 106, 112, 112, 116, 118, 128, 124, 128, 130, 136, 136, 140, 142, 160, 148, 152, 154, 160, 160, 164, 166, 176, 172, 176, 178
Offset: 1
Examples
a(42) = 3*42 + 2^1 = 128.
Links
Programs
-
Magma
[3*n+2^Valuation(n, 2): n in [1..60]]; // Vincenzo Librandi, Apr 29 2018
-
Maple
seq(3*n+2^padic:-ordp(n,2), n=1..100); # Robert Israel, Apr 29 2018
-
Mathematica
Table[3 n + 2^IntegerExponent[n, 2], {n, 60}] (* Vincenzo Librandi, Apr 29 2018 *)
-
PARI
a(n) = 3*n + 2^valuation(n, 2)
Comments