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!)
A272376 Twin primes both of which are the sum of three positive cubes. 1
2267, 2269, 3527, 3529, 10331, 10333, 14867, 14869, 17207, 17209, 18521, 18523, 18917, 18919, 20231, 20233, 20357, 20359, 25577, 25579, 27791, 27793, 28547, 28549, 31247, 31249, 35279, 35281, 36899, 36901, 40697, 40699, 44279, 44281, 48779, 48781, 51479, 51481 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

EXAMPLE

3527 and 3529 are terms since 3527=3^3+5^3+15^3 and 3529=1^3+11^3+13^3.

MATHEMATICA

cu[n_] := {}!=Quiet@ IntegerPartitions[n, {3}, Range[n^(1/3)]^3, 1]; Flatten@ Rest@ Reap@ Do[If[ PrimeQ[p+2] && cu[p] && cu[p+2], Sow[{p, p+2}]], {p, Prime@ Range@ 10000}] (* Giovanni Resta, Apr 28 2016 *)

PROG

(PARI) list(lim)=my(v=List(), k, t); lim\=1; for(x=1, sqrtnint(lim-2, 3), for(y=1, min(sqrtnint(lim-x^3-1, 3), x), k=x^3+y^3; for(z=1, min(sqrtnint(lim-k, 3), y), if(isprime(t=k+z^3), listput(v, t))))); v=Set(v); for(i=2, #v-1, if(v[i]!=v[i-1]+2 && v[i]!=v[i+1]-2, v[i]=0)); v=Set(v); v[3..#v] \\ Charles R Greathouse IV, Apr 29 2016

CROSSREFS

Cf. A001097, A007490, A270225.

Sequence in context: A251509 A263972 A263963 * A288883 A206212 A154673

Adjacent sequences:  A272373 A272374 A272375 * A272377 A272378 A272379

KEYWORD

nonn

AUTHOR

Carmine Suriano, Apr 28 2016

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 27 19:29 EST 2022. Contains 350611 sequences. (Running on oeis4.)