|
Search: id:A062010
|
|
|
| A062010 |
|
Numbers which, when expressed in a smaller base, become a factor of themselves. |
|
+0
1
|
|
| 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 20, 21, 30, 40, 100, 102, 112, 120, 200, 204, 210, 300, 306, 312, 400, 414, 420, 516, 522, 624, 630, 1000, 1010, 1102, 1120, 1232, 1320, 1344, 1422, 2000, 2223, 2240, 2301, 2310, 3000, 3430, 4000, 10000, 10100, 10101, 10356
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
EXAMPLE
|
In base 7, 102 is 51, a factor of 102.
|
|
MATHEMATICA
|
dtn[L_, b_] := Fold[b#1+#2&, 0, L] f[n_] := f[n]=Table[dtn[IntegerDigits[n, b], 10], {b, 2, 9}] g[n_] := MemberQ[Flatten[Map[f, Divisors[n]]], n] Select[Range[20000], g]
|
|
CROSSREFS
|
Sequence in context: A003045 A029750 A061920 this_sequence A071218 A017901 A005709
Adjacent sequences: A062007 A062008 A062009 this_sequence A062011 A062012 A062013
|
|
KEYWORD
|
base,easy,nice,nonn
|
|
AUTHOR
|
Erich Friedman (efriedma(AT)stetson.edu), Jun 27 2001
|
|
|
Search completed in 0.002 seconds
|
