|
%I #8 Nov 21 2013 12:48:41
%S 4,6,7,10,13,16,19,22,25,32,33,40,43,46,49,56,61,64,69,74,75,82,85,92,
%T 99,104,105,110,111,116,129,134,139,142,151,154,159,166,169,176,181,
%U 184,193,196,199,202,213,226,229,232,235,242,243,254,259,266,271,274,279
%N Primes plus alternately 2 and 3.
%F A107622(n) = prime(n) + (3 - mod(n, 2)).
%t A107622[n_]:= Prime[n] + (3 - Mod[n, 2]) (* From Zak Seidov *)
%t Total[#]&/@Partition[Riffle[Prime[Range[100]],{2,3}],2] (* _Harvey P. Dale_, Dec 14 2010 *)
%Y Cf. A107620, A107621, 107623.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, May 18 2005
|
