A143798 Twin prime numbers of the form : i^2+j^3, as sum of square and cube.

5, 17, 31, 43, 73, 101, 197, 241, 269, 283, 347, 521, 599, 811, 827, 829, 1019, 1049, 1051, 1153, 1289, 1787, 2089, 2143, 2341, 2689, 2731, 2969, 3257, 3259, 3391, 4051, 4093, 4129, 4159, 4217, 4481, 4721, 4931, 5881, 6361, 6793, 6959, 7759, 8009, 8233

Offset

1,1

Links

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

Example

31=2^2+3^3; 43=4^2+3^3.

Mathematica

lst1={}; For[i=1, i<=60, For[j=1, j<=60, c=i^2+j^3; If[((PrimeQ[c]&&PrimeQ[c-2])||(PrimeQ[c]&&PrimeQ[c+2])), AppendTo[lst1, c]]; j++ ]; i++ ]; lst2=Take[Union[lst1], 80]
Select[Union[Flatten[Table[m^2+n^3, {m, 60}, {n, 60}]]], PrimeQ[#]&&AnyTrue[#+ {2, -2}, PrimeQ]&]  (* Harvey P. Dale, Jul 02 2023 *)

Crossrefs

Sequence in context: A272838 A272939 A272920 * A031013 A031370 A147434

Adjacent sequences: A143795 A143796 A143797 * A143799 A143800 A143801

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 01 2008

Status

approved