login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154669 Averages k of twin prime pairs such that 2*k^3 + 12*k^2 is a square. 0
12, 282, 642, 1452, 12162, 17292, 34842, 98562, 194682, 233922, 347772, 383682, 410412, 544962, 749082, 1071642, 1302492, 1421292, 1503372, 1685442, 2794242, 3011052, 3235962, 3312732, 3792252, 3875322, 4755522 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

(11,13) is a twin prime pair with average 12; sqrt(2*12^3 + 12*12^2) = 72.

LINKS

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

MAPLE

a := proc (n) if isprime(n-1) = true and isprime(n+1) = true and type(sqrt(2*n^3+12*n^2), integer) = true then n else end if end proc: seq(a(n), n = 3 .. 5000000); # Emeric Deutsch, Jan 20 2009

MATHEMATICA

a[n_]:=Sqrt[2*n^3+12*n^2]; lst={}; Do[If[Floor[a[n]]==a[n], If[PrimeQ[n-1]&&PrimeQ[n+1], AppendTo[lst, n]]], {n, 9!}]; lst

Select[Mean/@Select[Partition[Prime[Range[400000]], 2, 1], #[[2]]-#[[1]] == 2&], IntegerQ[Sqrt[2#^3+12#^2]]&] (* Harvey P. Dale, Sep 05 2017 *)

CROSSREFS

Cf. A152811.

Sequence in context: A166337 A183767 A009604 * A079519 A275007 A262733

Adjacent sequences:  A154666 A154667 A154668 * A154670 A154671 A154672

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Jan 13 2009

EXTENSIONS

Extended by Emeric Deutsch, Jan 20 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 26 13:24 EDT 2022. Contains 354883 sequences. (Running on oeis4.)