A227642 Cubes which can be represented as sum of a prime and its reverse in at least one way.

353393243, 1058089859, 12503322161, 117001919971, 344030029343

Offset: 1

Author

Shyam Sunder Gupta, Jul 18 2013

Keywords

• nonn
• base

Comments

a(6) > 2*10^13. - Giovanni Resta, Jul 25 2013

Examples

			353393243 = 203993941 + 149399302.
		

Links

• Shyam Sunder Gupta, Can You Find ( CYF No. 21)

Crossrefs

Cf. A067030, A227525.

Programs

Mathematica

cubeQ[n_Integer?Positive] := IntegerQ[n^(1/3)] ; Union[Select[Table[Prime[x] + FromDigits[Reverse[IntegerDigits[Prime[x]]]], {x, 1000000000}], cubeQ]]

Extensions

a(5) from Giovanni Resta, Jul 25 2013