1,1
Table of n, a(n) for n=1..7.
451429^2 = 203788142041 and 203788142041+140241887302=7007^3,
9426681^2 = 88862314675761 and 88862314675761+16757641326888=10277157^2.
ppQ[n_] := n != 1 && GCD @@ (Transpose[FactorInteger[n]][[2]]) > 1; rev[n_] := FromDigits@Reverse@IntegerDigits@n ; lst = {}; Do[If[ppQ[n^2 + rev[n^2]], AppendTo[lst, n]], {n, 10^6}]; lst
Sequence in context: A212082 A015968 A095220 * A133495 A066622 A012671
Adjacent sequences: A113797 A113798 A113799 * A113801 A113802 A113803
base,nonn
Giovanni Resta, Jan 22 2006
approved
