OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= NULL: count:= 0: p:= 1: state:= 0:
for n from 1 while count < 100 do
p:= nextprime(p);
if n+p mod 11 = 0 then
if state = 1 then count:= count+1; R:= R, n-1 fi;
state:= 1
else
state:= 0
fi;
od:
R; # Robert Israel, Oct 02 2022
MATHEMATICA
Select[Range[5000], Mod[Prime[ # ]+#, 11]+Mod[Prime[ #+1]+#+1, 11]==0&]
Flatten[ Position[Partition[Table[n+Prime[n], {n, 5000}], 2, 1], _?(Mod[ First[ #], 11]+ Mod[Last[#], 11]==0&), {1}, Heads->False]] (* Harvey P. Dale, Mar 12 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Jun 10 2005
STATUS
approved