OFFSET
1,2
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
Sequences related to Legendre's conjecture - Jonathan Sondow, Feb 12 2013
EXAMPLE
n=1, (n+1)=2; (n+1)^2=4; 4+1=5 and 4-1=3
n=173, (n+1)=174; (n+1)^2=30276; 30276+173=30449 and 30276-173=30103
n=192, (n+1)=193; (n+1)^2=37249; 37249+192=37441 and 37249-192-37057
MATHEMATICA
Select[ Range[1000], PrimeQ[(# + 1)^2 + #] && PrimeQ[(# + 1)^2 - #] &] (* Jonathan Sondow, Feb 12 2013 *)
PROG
Input "n"'n:Lbl colorin:(n+1)^2-n->rtl:(n+1)^2+n->rtm:if IsPrime (rtm) and
isPrime (rtl) Then:Disp n:Pause:Endif:n+1->n:Goto colorin:EndPrgm
Texas Instruments Basic
CROSSREFS
KEYWORD
nonn
AUTHOR
César Aguilera, Feb 11 2013
EXTENSIONS
More terms from Jonathan Sondow, Feb 12 2013
STATUS
approved