|
Search: id:A143799
|
|
|
| A143799 |
|
Lesser of Twin prime numbers of the form : i^2+j^3, as sum of square and cube, if Greater Twin prime number also of the form : i^2+j^3, as sum of square and cube. |
|
+0
1
|
|
| 827, 1049, 3257, 4967, 11159, 17207, 23831, 31319, 31391, 49391, 53279, 60761, 63647, 68207, 74201, 78191, 82007, 92177, 110567, 110879, 124247, 132047, 136067, 136601, 176777, 181889, 204791, 234977, 245897, 291689, 343391, 345887, 358289
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
827=22^2+7^3, 829=9^3+10^2; 1049=7^2+10^3, 1051=32^2+3^3; 3257=57^2+2^3, 3259=54^2+7^3;
|
|
MATHEMATICA
|
lst1={}; For[i=1, i<=11^3, For[j=1, j<=11^3, 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], 4*10^3]; lst3={}; For[k=2, k<Length[lst2], v=Take[lst2, {k-1}][[1]]; w=Take[lst2, {k}][[1]]; x=w-v; If[x==2, AppendTo[lst3, v]]; k++ ]; lst3
|
|
CROSSREFS
|
Sequence in context: A051989 A104375 A066946 this_sequence A046496 A102350 A108830
Adjacent sequences: A143796 A143797 A143798 this_sequence A143800 A143801 A143802
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 01 2008
|
|
|
Search completed in 0.002 seconds
|
