This site is supported by donations to The OEIS Foundation.

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

 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 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 * A280924 A140047 A102483 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 | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.