|
|
A249633
|
|
Numbers whose squares remain squares when prepended with 1 and appended with 25 in base 10.
|
|
4
|
|
|
285290, 37501930, 5986235584, 6402200716, 7097946940, 2189113296470, 533822715205534, 120542200191255266, 175167560462651234, 1035777761966641262300, 55811056504696202088334, 87383897508158263975600, 342433449090893699643070, 356558269841736892522930
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(34) = 3894512793630238968387948459831502376753914222969510. - Giovanni Resta, Mar 08 2017
|
|
LINKS
|
|
|
EXAMPLE
|
81390384100 = 285290^2 and 18139038410025 = 4258995^2.
|
|
MATHEMATICA
|
a249633Q[n_Integer] :=
Module[{m, t}, m := ToString[n^2];
IntegerQ[Sqrt[ToExpression["1" <> m <> "25"]]]]; Select[Range[300000], a249633Q[#] &] (* Michael De Vlieger, Nov 06 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|