|
%I #10 Dec 01 2013 12:01:17
%S 7,31,37,41,51,63,69,75,82,92,96,101,112,123,129,133,140,150,159,164,
%T 178,187,198,202,214,224,228,232,236,241,246,260,269,273,280,290,294,
%U 298,301,305,310,315,323,331,336,344,358,367,371,375,386,390
%N Positions of multiples of 9 in A204890 (differences of primes).
%C For a guide to related sequences, see A205558.
%e In A204890=(1,3,2,5,4,2,9,8,6,4,11,10,8,...), multiples of 9 are in positions 7,31,37,... See the example at A205712.
%t (See the program at A205712.)
%t With[{prs=Prime[Range[30]]},Flatten[Position[Flatten[Table[prs[[n]]- Take[ prs,n-1],{n,2,Length[prs]}]],_?(Divisible[#,9]&)]]] (* _Harvey P. Dale_, Dec 01 2013 *)
%Y Cf. A204890, A205712, A205558.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 31 2012
|
