|
| |
|
|
A163128
|
|
The n-th self-number minus n.
|
|
2
|
|
|
|
0, 1, 2, 3, 4, 14, 24, 34, 44, 54, 64, 74, 84, 94, 95, 105, 115, 125, 135, 145, 155, 165, 175, 185, 186, 196, 206, 216, 226, 236, 246, 256, 266, 276, 277, 287, 297, 307, 317, 327, 337, 347, 357, 367, 368, 378, 388, 398, 408, 418, 428, 438, 448, 458, 459, 469, 479, 489, 499
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Table of n, a(n) for n=1..59.
|
|
|
FORMULA
|
a(n) = A003052(n)-n.
|
|
|
EXAMPLE
|
a(6)=20-6=14. a(7)=31-7=24.
|
|
|
MAPLE
|
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end:
isA003052 := proc(n) for k from 1 to n do if k+A007953(k) = n then RETURN(false) ; fi; od: true; end:
A003052 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if isA003052(a) then RETURN(a) ; fi; od: fi; end:
A163128 := proc(n) A003052(n)-n ; end:
for n from 1 to 100 do printf("%d, ", A163128(n)) ; od: # R. J. Mathar, Jul 31 2009
|
|
|
CROSSREFS
|
Cf. A000027, A003052.
Sequence in context: A047193 A019137 A188533 * A140047 A102483 A134916
Adjacent sequences: A163125 A163126 A163127 * A163129 A163130 A163131
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Juri-Stepan Gerasimov, Jul 21 2009
|
|
|
EXTENSIONS
|
Entries checked by R. J. Mathar, Jul 31 2009
|
|
|
STATUS
|
approved
|
| |
|
|
