login
A059465
Numbers which are the sum of their proper divisors containing the digit 6.
9
528, 27340, 27380, 122780, 130420, 130564, 130580, 134740, 147380, 225932, 227380, 241340, 243220, 245380, 251380, 252380, 252820, 253180, 253420, 253780, 259340, 271340, 272380, 272980, 273140, 273380, 273580, 273820, 279340, 305380, 307220, 322540, 322780
OFFSET
1,1
LINKS
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 *)
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Feb 03 2001
EXTENSIONS
a(4)-a(33) from Hiroaki Yamanouchi, Sep 24 2014
STATUS
approved