OFFSET
1,1
LINKS
The Inventory Sequences and Self-Inventoried Numbers in www.primepuzzles.net (see Question 7)
EXAMPLE
The "inventory" of 511 is 1521 (one "5", two "1"s) = 39^2. Hence 1521 belongs to the sequence.
MATHEMATICA
g[n_] := Module[{seen, r, d, l, i, t}, seen = {}; r = {}; d = IntegerDigits[n]; l = Length[d]; For[i = 1, i <= l, i++, t = d[[i]]; If[ ! MemberQ[seen, t], r = Join[r, IntegerDigits[Count[d, t]]]; r = Join[r, {t}]; seen = Append[seen, t]]]; FromDigits[r]]; Select[Range[10^5], IntegerQ[Sqrt[g[ # ]]] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Jan 14 2003
STATUS
approved