A060191 Union_i p(4i), p(4i+1), where p(k) = k-th prime.

2, 7, 11, 19, 23, 37, 41, 53, 59, 71, 73, 89, 97, 107, 109, 131, 137, 151, 157, 173, 179, 193, 197, 223, 227, 239, 241, 263, 269, 281, 283, 311, 313, 337, 347, 359, 367, 383, 389, 409, 419, 433, 439, 457, 461, 479, 487, 503, 509, 541, 547, 569

Offset: 0

Author

N. J. A. Sloane, Mar 21 2001

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A060192, A060193, A060194.

Programs

Mathematica

Drop[Drop[Prime[Range[110]],{2,-1,4}],{2,-1,3}] (* Harvey P. Dale, Nov 26 2011 *)
Prime[#]&/@LinearRecurrence[{1,1,-1},{1,4,5,8},60] (* Harvey P. Dale, Apr 02 2018 *)