OFFSET
0,1
COMMENTS
Conjecture: every prime of the form 12k+1 is a member.
MAPLE
a:=5:
l:=13:
L:=[l]:
while l < 3400 do
if isprime((l+a)/2) then
if not(a in L) then
if not a mod 12 = 1 then
print(a);
break;
end if;
L:=[op(L), a]:
l:=a:
a:=5:
else
a:=nextprime(a):
end if;
else
a:=nextprime(a):
end if;
end do;
L;
CROSSREFS
KEYWORD
nonn
AUTHOR
Pedja Terzic, Oct 08 2012
STATUS
approved