|
| |
|
|
A135100
|
|
Numbers which divide their digital sumorial (see A131383).
|
|
9
| |
|
|
1, 3, 4, 15, 26, 2573, 17226, 19786, 22083, 58133, 67693, 223657, 376460, 464713, 497068, 2621204, 4553376, 6000136, 7671158, 13975944, 14074903, 52731198, 82594577
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| a(5)=26, since 26 divides its digital sumorial, which is A131383(26)=182.
|
|
|
PROG
| (PARI) a=1; for(n=2, 10^6, if(a%(n-1)==0, print1(n-1", ")); x=divisors(n); L=numdiv(n); a+=n; \ for(i=2, L-1, d=x[i]; k=n; while(k%d==0, a-=d-1; k\=d))) - Robert Gerbicz (robert.gerbicz(AT)gmail.com), May 09 2008
|
|
|
CROSSREFS
| Cf. A007953, A054899, A131383, A131451, A133620, A133900, A134599.
Sequence in context: A081405 A167367 A024858 * A205485 A055486 A041665
Adjacent sequences: A135097 A135098 A135099 * A135101 A135102 A135103
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Hieronymus Fischer (Hieronymus.Fischer(AT)gmx.de), Dec 24 2007
|
|
|
EXTENSIONS
| 4 more terms from Robert Gerbicz (robert.gerbicz(AT)gmail.com), May 09 2008
a(16)-a(23) from Hieronymus Fischer (Hieronymus.Fischer(AT)gmx.de), Jul 31 2008
|
| |
|
|
