editing
approved
editing
approved
Twin primes pairs whose members are both of which are the sum of three positive cubes.
proposed
editing
editing
proposed
Charles R Greathouse IV, <a href="/A272376/b272376.txt">Table of n, a(n) for n = 1..10000</a>
(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) && (isprime(t-2) || isprime(t+2)), , 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
proposed
editing
editing
proposed
editing
proposed
Twin primes that pairs whose members are both the sum of three positive cubes.
3527 and 3529 are terms since 3527=3^3+5^3+15^3 and 3529=1^3+11^3+13^3.
a(3)=3527, a(4)= and 3529 since 3527=3^3+5^3+15^3 and 3529=1^3+11^3+13^3.
(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) && (isprime(t-2) || isprime(t+2)), listput(v, t))))); Set(v) \\ Charles R Greathouse IV, Apr 29 2016
proposed
editing