|
%I #11 May 20 2019 17:44:08
%S 12,24,36,54,66,84,108,120,132,150,180,192,210,234,252,282,294,312,
%T 348,366,378,402,420,456,474,510,528,540,570,582,612,630,660,684,720,
%U 732,756,792,810,834,858,888,906,936,960,990,1020,1038,1074
%N n-th 6k+1 prime plus n-th 6k+5 prime.
%H Harvey P. Dale, <a href="/A022759/b022759.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A002476(n) + A007528(n). - _Sean A. Irvine_, May 20 2019
%t Module[{nn=60,pr1,pr5,len},pr1=Select[Prime[Range[2nn]],Mod[#,6]==1&];pr5= Select[ Prime[Range[2nn]],Mod[#,6]==5&];len=Min[Length[pr1], Length[ pr5]]; Total/@Thread[{Take[pr1,len],Take[pr5,len]}]] (* _Harvey P. Dale_, Aug 11 2017 *)
%Y Cf. A002476, A007528.
%K nonn
%O 1,1
%A _Clark Kimberling_
|
