login
A143793
Averages of twin primes of the form : i^2+j^2, as sum of two squares.
0
180, 522, 810, 1620, 1872, 2088, 2340, 3258, 3330, 4050, 4338, 4932, 5652, 5850, 6570, 6660, 6948, 7488, 8010, 8388, 8820, 9000, 10530, 10890, 11700, 12240, 14562, 15138, 16362, 16452, 16650, 17658, 17748, 19080, 19890, 19962, 20232, 20772
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
Sequence in context: A307112 A211552 A004532 * A205818 A259312 A032774
KEYWORD
nonn
AUTHOR
STATUS
approved