A193213 Primes generated by the golden sieve, cf. A099267.

2, 3, 5, 11, 13, 19, 23, 29, 31, 37, 47, 53, 61, 71, 73, 79, 89, 97, 103, 107, 113, 131, 137, 139, 149, 157, 163, 167, 173, 179, 181, 191, 197, 199, 223, 233, 239, 241, 251, 257, 277, 281, 283, 293, 307, 311, 317, 349, 353, 359, 367, 379, 383, 401, 409, 419

Offset: 1

Author

Reinhard Zumkeller, Sep 18 2011

Keywords

• nonn

Comments

Complement of A193214 with respect to A000040.

Intersection of A099267 and A000040.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Programs

Haskell

a193213 n = a193213_list !! (n-1)
a193213_list = filter ((== 1) . a010051) a099267_list

Mathematica

With[{t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1}}] &, {0}, 7]}, Select[Position[t, 1][[All, 1]], PrimeQ]] (* Michael De Vlieger, Sep 28 2021, after Benoit Cloitre at A099267 *)