A143793 Averages of twin primes of the form : i^2+j^2, as sum of two squares.

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

Links

Table of n, a(n) for n=1..38.

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

Adjacent sequences: A143790 A143791 A143792 * A143794 A143795 A143796

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 01 2008

Status

approved