A046828 Digits of n^2 include digits of n, n does not end in 0.

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

Offset

1,2

Links

Table of n, a(n) for n=1..55.

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

Sequence in context: A039918 A020685 A275492 * A328095 A046830 A042493

Adjacent sequences: A046825 A046826 A046827 * A046829 A046830 A046831

Keyword

nonn,base

Author

David W. Wilson

Status

approved