%I #10 Apr 02 2018 10:19:07
%S 2,7,11,19,23,37,41,53,59,71,73,89,97,107,109,131,137,151,157,173,179,
%T 193,197,223,227,239,241,263,269,281,283,311,313,337,347,359,367,383,
%U 389,409,419,433,439,457,461,479,487,503,509,541,547,569
%N Union_i p(4i), p(4i+1), where p(k) = k-th prime.
%H Harvey P. Dale, <a href="/A060191/b060191.txt">Table of n, a(n) for n = 0..1000</a>
%t Drop[Drop[Prime[Range[110]],{2,-1,4}],{2,-1,3}] (* _Harvey P. Dale_, Nov 26 2011 *)
%t Prime[#]&/@LinearRecurrence[{1,1,-1},{1,4,5,8},60] (* _Harvey P. Dale_, Apr 02 2018 *)
%Y Cf. A060192, A060193, A060194.
%K nonn
%O 0,1
%A _N. J. A. Sloane_, Mar 21 2001
|