%I #2 Mar 30 2012 17:26:35
%S 5,12,16,18,20,38,56,66,78,86,98,108,118,132,144,150,156,186,218,228,
%T 238,250,258,272,294,310,316,318,332,368,404,420,426,440,458,492,522,
%U 542,570,592,606,620,638,650,668,686,696,730,780,812,836,854,864,876
%N a(n)= (A178468(n)+A178468(n+1))/101.
%t <<NumberTheory`NumberTheoryFunctions`
%t k=101;a=p=2;s={};Do[p=NextPrime[p];If[Mod[a+p,k]==0,AppendTo[s,(a+p)/k];a=p],{10000}];s
%Y Cf. A178468.
%K nonn
%O 1,1
%A _Zak Seidov_, May 28 2010
|