%I A079464
%S A079464 1,3,7,9,17,23,27,33,39,51,63,69,81,93,99,111,113,127,131,133,137,193,
%T A079464 199,203,209,223,232,233,271,299,301,311,313,331,359,361,367,371,377,
%U A079464 414,431,433,439,441,447,451,463,469,474,477,479,481,497,499,503,523
%N A079464 Numbers n such that the "inventory" A063850 of n is prime.
%H A079464 Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_207.htm">
               The Inventory Sequences and Self-Inventoried Numbers</a>, (see Question 
               7)
%e A079464 The "inventory" of 299 is 1229 (one "2", two "9"s), which is prime. Hence 
               299 belongs to the sequence.
%t A079464 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^3], PrimeQ[g[ 
               # ]] &]
%Y A079464 Cf. A063850.
%Y A079464 Sequence in context: A126106 A064194 A036978 this_sequence A036976 A031273 
               A140118
%Y A079464 Adjacent sequences: A079461 A079462 A079463 this_sequence A079465 A079466 
               A079467
%K A079464 base,nonn
%O A079464 1,2
%A A079464 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 14 2003