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

Author

Patrick De Geest

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A029775.

Programs

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 *)

Formula

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