|
| |
|
|
A038187
|
|
Numbers other than powers of 10 that are coprime to the sum of their digits.
|
|
0
| |
|
|
11, 13, 14, 16, 17, 19, 23, 25, 29, 31, 32, 34, 35, 37, 38, 41, 43, 47, 49, 52, 53, 56, 58, 59, 61, 65, 67, 71, 73, 74, 76, 79, 83, 85, 89, 91, 92, 94, 95, 97, 98, 101, 103, 104, 106, 107, 109, 113, 115, 119, 121, 122, 124, 125, 127, 128, 131, 137, 139, 142, 143, 146, 148, 149, 151, 155, 157
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| cpQ[n_]:=Module[{td=Total[IntegerDigits[n]]}, td>1&&CoprimeQ[td, n]]; Select[Range[160], cpQ] (* From Harvey P. Dale, June 11 2011 *)
|
|
|
CROSSREFS
| Cf. A005349.
Sequence in context: A065877 A129917 A102577 * A007934 A111347 A026818
Adjacent sequences: A038184 A038185 A038186 * A038188 A038189 A038190
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Felice Russo (frusso(AT)micron.com)
|
|
|
EXTENSIONS
| Corrected and extended by Olivier Gerard (olivier.gerard(AT)gmail.com)
|
| |
|
|
