login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 16 02:33 EDT 2014. Contains 240534 sequences.