OFFSET
1,1
LINKS
Hiroaki Yamanouchi, Table of n, a(n) for n = 1..1532
MATHEMATICA
spd6Q[n_]:=Total[Select[Most[Rest[Divisors[n]]], DigitCount[#, 10, 6]> 0&]] == n; Select[Range[330000], spd6Q]//Quiet (* Harvey P. Dale, Apr 15 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
EXTENSIONS
a(4)-a(33) from Hiroaki Yamanouchi, Sep 24 2014
STATUS
approved