A029774 Numbers k in which the digits of k^2 appear.

0, 1, 10, 100, 235, 1000, 1049, 1235, 2350, 2983, 4762, 4832, 10000, 10376, 10490, 10493, 10496, 10923, 11205, 12335, 12350, 12385, 12450, 12650, 14290, 14829, 16205, 17923, 18235, 18376, 20495, 22450, 23500, 23506, 23566, 24605

Offset

1,3

Links

Harvey P. Dale, Table of n, a(n) for n = 1..3001

Formula

a(n) = sqrt(A029775(n)). - Sean A. Irvine, Mar 04 2020

Example

235^2 = 55225, whose digits are a subset of {2,3,5}.

Mathematica

dn2Q[n_]:=And@@(MemberQ[Union[IntegerDigits[n]], #]&/@Union[ IntegerDigits[ n^2]]); Select[Range[0, 25000], dn2Q] (* Harvey P. Dale, Apr 10 2013 *)
Select[Range[0, 25000], SubsetQ[IntegerDigits[#], IntegerDigits[#^2]]&] (* using SubsetQ function from Mathematica 10 *) (* Harvey P. Dale, Jul 13 2014 *)

Crossrefs

Cf. A029775.

Sequence in context: A043216 A044342 A119052 * A208375 A208065 A207930

Adjacent sequences: A029771 A029772 A029773 * A029775 A029776 A029777

Keyword

nonn,base

Author

Patrick De Geest

Status

approved