OFFSET
1,1
COMMENTS
Primitive solutions of A048375 (whose numbers can have trailing zeros).
LINKS
Zak Seidov, 150 values for n,a,b
EXAMPLE
a(150)=1002445 and 1002445^2=1004895978025=100489_5978025, x^2=317^2=100489, y^2=2445^2=5978025.
MATHEMATICA
Reap[Do[r=0; If[Mod[n, 10]>0, Do[mo=PowerMod[n, 2, 10^k]; If[mo>10^(k-1)-1 && IntegerQ[Sqrt[mo]] && IntegerQ[Sqrt[qu=Quotient[n^2, 10^k]]], r=1; Break[]], {k, Log[10, n^2]}]; If[r>0, Sow[n]; Print[{n, Sqrt[qu], Sqrt@mo}]]], {n, 7, 10^6}]][[2, 1]] (* Zak Seidov, Oct 20 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 20 2011
STATUS
approved