OFFSET
0,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MATHEMATICA
A373730[n_] := #/2^IntegerExponent[#, 2] & [9*n + 2];
Array[A373730, 100, 0] (* Paolo Xausa, Aug 19 2024 *)
PROG
(PARI) a(n) = n=9*n+2; n>>valuation(n, 2);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jonas Kaiser, Jun 17 2024
STATUS
approved