|
23, 24, 71, 72, 73, 74, 75, 76, 77, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 708, 709, 710, 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 722, 723, 724, 725, 726, 727, 728, 729, 730
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Rest[Table[If[First[IntegerDigits[n^2]] == 5, n, 0], {n, 1, 2500}]// Union] (* José María Grau Ribas, Feb 15 2010 *)
|
|
PROG
|
(PARI) isok(n) = digits(n^2)[1] == 5; \\ Michel Marcus, Dec 13 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|