|
Search: id:A063425
|
|
|
| A063425 |
|
Integers not expressible as n + product of nonzero digits of n (A063114). |
|
+0
6
|
|
| 1, 3, 5, 7, 9, 13, 15, 17, 19, 21, 25, 27, 30, 31, 36, 37, 39, 40, 43, 48, 49, 51, 52, 53, 57, 59, 61, 63, 64, 69, 71, 72, 73, 76, 79, 82, 83, 84, 87, 90, 91, 93, 96, 97, 103, 105, 113, 115, 117, 119, 121, 127, 131, 136, 137, 139, 148, 149, 151, 153, 157, 159, 163, 164
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[n_] := Block[{s = Sort[ IntegerDigits[n]]}, While[ s[[1]] == 0, s = Drop[s, 1]]; n + Times @@ s]; t = Table[0, {200}]; Do[ a = f[n]; If[a < 200, t[[a]]++ ], {n, 200}]; Select[ Range[ 200], t[[ # ]] == 0 &] (from Robert G. Wilson v Jul 16 2004)
|
|
CROSSREFS
|
Cf. A063114, A096347, A063425, A096922, A096923, A096924, A096925, A096926, A096927, A096928, A096929, A096930, A096931.
Sequence in context: A063081 A067031 A029740 this_sequence A064608 A024893 A119253
Adjacent sequences: A063422 A063423 A063424 this_sequence A063426 A063427 A063428
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 09 2001
|
|
|
Search completed in 0.002 seconds
|
