|
%I #7 Dec 05 2013 19:55:31
%S 2,4,6,8,16,18,20,34,50,56,68,172,174,228,230,244,260,268,270,272,296,
%T 460,462,464,486,488,498,500,510,516,662,676,678,762,806,822,824,864,
%U 880,882,884,894,906,908,932,938
%N Initial members of groups in A073697.
%C a(k+1)-a(k)=4 has no solutions.
%t t = {}; s = 1; c = 0; Do[s = s*i; c += 1; If[PrimeQ[s + 1], AppendTo[t, i - 2*(c - 1)]; s = 1; c = 0], {i, 2, 1000, 2}]; t (* _Jayanta Basu_, Jul 07 2013 *)
%Y Cf. A073695, A073697.
%K nonn
%O 0,1
%A _Amarnath Murthy_, Aug 12 2002
%E More terms from _Felice Russo_, Oct 11 2002
|
