id:A163139 - OEIS Search Results

Search: id:A163139

Displaying 1-1 of 1 results found.

page 1

First differences of A163128.

+0
1

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; listen)

	OFFSET	`1,5`
	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. A000027, A003052, A163128.` `Sequence in context: A103708 A131722 A072803 this_sequence A010692 A109751 A160941` `Adjacent sequences: A163136 A163137 A163138 this_sequence A163140 A163141 A163142`
	KEYWORD	`nonn`
	AUTHOR	`Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Jul 21 2009`
	EXTENSIONS	`Missing 10's inserted by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jul 31 2009`

page 1

Search completed in 0.002 seconds

Last modified December 4 15:11 EST 2009. Contains 170347 sequences.

AT&T Labs Research