|
|
A046828
|
|
Digits of n^2 include digits of n, n does not end in 0.
|
|
1
|
|
|
1, 5, 6, 11, 25, 27, 63, 64, 74, 76, 95, 96, 101, 105, 125, 139, 142, 205, 255, 261, 275, 277, 278, 285, 305, 364, 371, 376, 405, 421, 441, 463, 472, 493, 497, 501, 502, 503, 504, 505, 506, 507, 508, 509, 523, 524, 525, 593, 601, 602, 603, 605, 625, 631, 642
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[642], Count[Table[DigitCount[#^2, 10, k] - DigitCount[#, 10, k], {k, Union[x = IntegerDigits[#]]}], _?Negative] == 0 && Last[x] != 0 &] (* Jayanta Basu, Jun 29 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|