OFFSET
1,1
EXAMPLE
180=6^2+12^2, 179 and 181 twin primes, 522=9^2+21^2, 521 and 523 twin primes.
MATHEMATICA
lst={}; For[i=1, i<=256, For[j=i+1, j<=i+256, c=i^2+j^2; If[PrimeQ[c-1]&&PrimeQ[c+1], AppendTo[lst, c]]; j++ ]; i++ ]; Take[Union[lst], 80]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 01 2008
STATUS
approved