OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
S1:= sort(map(rhs@op, [msolve(p^1092=1, 1093^2)])):
S2:= map(rhs@op, {msolve(p^3510=1, 3511^2)}):
Res:= NULL:
for k from 0 to 2000 do
for j in S1 do
p:= 1093^2*k+j;
if member(p mod 3511^2, S2) and isprime(p) then
Res:= Res, p;
fi
od od:
Res; # Robert Israel, Mar 13 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Nov 25 2014
STATUS
approved