OFFSET
0,1
COMMENTS
Similar to a Collatz sequence.
FORMULA
a(n+1) = A000265(3*a(n)+1). - Michel Marcus, Aug 23 2022
EXAMPLE
a(4)=47 because (a(3)*3+1)/2^3 = 47.
PROG
(PARI) f(n) = n >> valuation(n, 2); \\ A000265
lista(nn) = my(list=List(), x = 18, i=0); while (1, listput(list, x); x = f(3*x+1); i++; if (i>100, break)); Vec(list); \\ Michel Marcus, Aug 23 2022
CROSSREFS
KEYWORD
easy,nonn,fini,full
AUTHOR
Mitch Cervinka (puritan(AT)planetkc.com), Nov 20 2003
EXTENSIONS
Edited by Don Reble, Nov 08 2005
Corrected by Doug Unger, Aug 26 2022
STATUS
approved