login
A033976
Trajectory of 1 under map n->41n+1 if n odd, n->n/2 if n even
1
1, 42, 21, 862, 431, 17672, 8836, 4418, 2209, 90570, 45285, 1856686, 928343, 38062064, 19031032, 9515516, 4757758, 2378879, 97534040, 48767020, 24383510, 12191755, 499861956, 249930978, 124965489
OFFSET
0,2
LINKS
MATHEMATICA
NestList[If[EvenQ[#], #/2, 41#+1]&, 1, 30] (* Harvey P. Dale, Aug 19 2021 *)
CROSSREFS
Sequence in context: A194710 A334148 A033362 * A236684 A053721 A195750
KEYWORD
nonn
AUTHOR
STATUS
approved