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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
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 *)