A280409 Primes in the order that they appear in A280408, without repetitions.

2, 3, 5, 7, 11, 17, 13, 23, 53, 19, 29, 41, 31, 47, 71, 107, 137, 103, 233, 263, 593, 167, 251, 283, 479, 719, 1619, 911, 1367, 577, 433, 61, 37, 59, 89, 67, 101, 43, 83, 73, 113, 79, 179, 269, 131, 197, 97, 149, 109, 173, 139, 157, 127, 191, 431, 647, 971

Offset: 1

Author

Matthew Campbell, Jan 02 2017

Keywords

• nonn

Links

• David Radcliffe, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A280408, A000040, A070165.

Programs

Mathematica

DeleteDuplicates@ Flatten@ Table[Select[NestWhileList[If[EvenQ@ #, #/2, 3 # + 1] &, n, # > 1 &], PrimeQ], {n, 200}] (* Michael De Vlieger, Jan 02 2017 *)