This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A163139 First differences of A163128. 0
 1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,5 COMMENTS First difference of self numbers, minus 1. LINKS FORMULA a(n)=A163128(n+1)-A163128(n) = A003052(n+1)-A003052(n)-1. EXAMPLE a(6)=24-14=10. 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: for n from 1 to 100 do printf("%d, ", A003052(n+1)-A003052(n)-1) ; od: # R. J. Mathar, Jul 31 2009 CROSSREFS Cf. A003052, A163128. Sequence in context: A103708 A131722 A072803 * A010692 A109751 A160941 Adjacent sequences:  A163136 A163137 A163138 * A163140 A163141 A163142 KEYWORD nonn,base AUTHOR Juri-Stepan Gerasimov, Jul 21 2009 EXTENSIONS Missing 10's inserted 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 | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

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

Last modified May 20 16:45 EDT 2013. Contains 225464 sequences.