|
| |
|
|
A120004
|
|
Number of distinct numbers as substrings of n in decimal representation.
|
|
3
| |
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 4, 4, 5, 5, 5, 5
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,11
|
|
|
COMMENTS
| a(n) = A079790(n) for n <= 100;
a(A120005(n)) = n and a(m) < n for m < A120005(n).
|
|
|
LINKS
| R. Zumkeller, Table of n, a(n) for n = 0..10000
|
|
|
EXAMPLE
| n=101: {'1','0','10','01','101'} -> a(101)=#{0,1,10,101}=4;
n=102: {'1','0','2','10','02','102'} -> a(102)=#{0,1,2,10,102}=5.
|
|
|
PROG
| (Haskell)
import Data.List (isInfixOf)
a120004 n = length $ filter ((`isInfixOf` show n) . show) [0..n]
-- Reinhard Zumkeller, Aug 14 2011
|
|
|
CROSSREFS
| Cf. A119999.
Sequence in context: A114451 A142246 A080428 * A079790 A098726 A065801
Adjacent sequences: A120001 A120002 A120003 * A120005 A120006 A120007
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 15 2006
|
|
|
EXTENSIONS
| Offset changed and a(0)=1 inserted, in consequence of Zak Seidov's correction in A120005. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 30 2010
|
| |
|
|
