A308149 Positive integers with Collatz trajectories that do not include the number 5.
1, 2, 4, 8, 16, 21, 32, 42, 64, 75, 84, 85, 113, 128, 150, 151, 168, 170, 201, 226, 227, 256, 267, 300, 301, 302, 336, 340, 341, 401, 402, 403, 423, 452, 453, 454, 475, 512, 534, 535, 537, 600, 602, 604, 605, 633, 635, 672, 680, 682, 713, 715, 802, 803, 804, 805, 806, 846, 847, 891, 904, 906, 908, 909, 950, 951, 953, 955
Offset: 1
Examples
21 is a term because its Collatz trajectory, given in A033481, does not include 5.
Links
Programs
-
Mathematica
collatzTrajectory[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Select[Range[1000], Not[MemberQ[collatzTrajectory[#], 5]] &] (* Alonso del Arte, May 25 2019 *)
Comments