|
%I #5 Jun 20 2015 15:33:58
%S 1,3,6,8,16,23,31,34,36,48,56,59,71,83,86,91,94,108,119,121,129,133,
%T 146,148,168,169,191,203,223,226,246,253,254,259,269,288,289,303,314,
%U 316,321,338,356,358,394,399,416,433,463,464,471,496,511,519,528,533,548
%N (A175600(n)-5)/48 or A112559(n)/3.
%t A002144=Select[Range[5,100000,4],PrimeQ];
%t A175600=Select[A002144,MemberQ[A002144,(#-1)/4]&];
%t A179652=(A175600-5)/48
%Y Cf. A002144, A112559, A175600.
%K nonn
%O 1,2
%A _Zak Seidov_, Jul 22 2010
|
