A062893 Number of squares that can be obtained by using some or all of the digits of n.

1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 2, 0, 1, 2, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 2, 0, 0, 1, 0, 0, 0, 0, 1, 2, 2, 1, 1, 3, 1, 1, 1, 1, 1, 3, 2, 2, 2, 3

Offset

0,11

Links

Table of n, a(n) for n=0..104.

Example

a(169) = 6 the squares obtained by using the digits are 1,9,16, 169, 196, 961.

Mathematica

Table[Length[Select[Union[Drop[FromDigits/@Flatten[Permutations/@ Subsets[IntegerDigits[n]], 1], 1]], IntegerQ[Sqrt[#]] &]], {n, 0, 104}] (* Jayanta Basu, May 17 2013 *)

Crossrefs

Sequence in context: A307610 A125029 A339839 * A328512 A302041 A302031

Adjacent sequences: A062890 A062891 A062892 * A062894 A062895 A062896

Keyword

base,nonn,easy

Author

Amarnath Murthy, Jun 29 2001

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org) and Dean Hickerson, Jul 02 2001

Status

approved