|
%I #3 Mar 30 2012 17:26:16
%S 94,220,241,367,379,400,421,454,538,589,640,712,736,853,880,976,1000,
%T 1084,1111,1273,1291,1333,1369,1459,1489,1564,1597,1729,1798,1831,
%U 1912,1984,2035,2113,2140,2203,2293,2353,2377,2530,2587,2716,2728,2833,2941
%N Numbers n such that (n + prime(n)) and (n+1 + prime(n+1)) are divisible by 9.
%t Select[Range[5000], Mod[Prime[ # ]+#, 9]+Mod[Prime[ #+1]+#+1, 9]==0&]
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Jun 10 2005
|
