OFFSET
1,2
COMMENTS
Invented by the HR concept formation program.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
S. Colton, Refactorable Numbers - A Machine Invention, J. Integer Sequences, Vol. 2, 1999, #2.
EXAMPLE
14 has 4 divisors and 4 is a digit in the base 10 representation of 14.
MATHEMATICA
Select[Range[300], MemberQ[IntegerDigits[#], DivisorSigma[0, #]]&] (* Harvey P. Dale, Sep 02 2013 *)
PROG
(Haskell)
a036433 n = a036433_list !! (n-1)
a036433_list = filter f [1..] where
f x = d < 10 && ("0123456789" !! d) `elem` show x where d = a000005 x
-- Reinhard Zumkeller, Mar 15 2012
(Python)
from sympy import divisor_count
A036433_list = []
for i in range(1, 10**5):
....d = divisor_count(i)
....if d < 10 and str(d) in str(i):
........A036433_list.append(i) # Chai Wah Wu, Jan 07 2015
CROSSREFS
KEYWORD
base,nice,nonn
AUTHOR
Simon Colton (simonco(AT)cs.york.ac.uk)
STATUS
approved