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

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

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 *)

Prog

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

Crossrefs

Sequence in context: A215370 A139053 A184859 * A153135 A038615 A280930

Adjacent sequences: A193210 A193211 A193212 * A193214 A193215 A193216

Keyword

nonn

Author

Reinhard Zumkeller, Sep 18 2011

Status

approved