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,1

Links

Table of n, a(n) for n=1..57.

Mathematica

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

Crossrefs

Cf. A280408, A000040, A070165.

Sequence in context: A092180 A050298 A094751 * A336370 A076805 A322477

Adjacent sequences: A280406 A280407 A280408 * A280410 A280411 A280412

Keyword

nonn

Author

Matthew Campbell, Jan 02 2017

Status

approved