|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
