A115432 Numbers k such that the concatenation of k with k-4 gives a square.
65, 6653, 9605, 218413, 283720, 996005, 58446925, 99960005, 6086712229, 7385370133, 8478948853, 9999600005, 120178240093, 161171620229, 358247912200, 426843573160, 893417179213, 999996000005, 23376713203604
Offset: 1
Examples
9605_9601 = 9801^2.
Links
- Robert Israel, Table of n, a(n) for n = 1..2805
Crossrefs
Programs
-
Maple
f:= proc(d) uses NumberTheory; local m,r; m:= 10^d + 1; if QuadraticResidue(-4,m) = -1 then return NULL fi; r:= ModularSquareRoot(-4, m); op(sort(select(t -> t >= 10^(d-1)+4 and t < 10^d+4, map(t -> ((r*t mod m)^2+4)/m, convert(RootsOfUnity(2,m),list))))) end proc: map(f, [$1..20]); # Robert Israel, Sep 12 2023
Comments