id:A138376 - OEIS Search Results

Search: id:A138376

Displaying 1-1 of 1 results found.

page 1

a(n+1) = abs[ a(n) + Sum_of_digits_of(n+1)], with a(0)=0.

+0
4

0, 1, 3, 0, 4, 1, 7, 0, 8, 1, 2, 0, 3, 1, 6, 0, 7, 1, 10, 0, 2, 1, 5, 0, 6, 1, 9, 0, 10, 1, 4, 0, 5, 1, 8, 0, 9, 1, 12, 0, 4, 1, 7, 0, 8, 1, 11, 0, 12, 1, 6, 0, 7, 1, 10, 0, 11, 1, 14, 0, 6, 1, 9, 0, 10, 1, 13, 0, 14, 1, 8, 0, 9, 1, 12, 0, 13, 1, 16, 0, 8, 1, 11, 0, 12, 1, 15, 0, 16, 1, 10, 0, 11, 1, 14 (list; graph; listen)

	OFFSET	`0,3`
	COMMENT	`a(4k)=0, with k>=1` `a(4k-2)=1, with k>=1`
	FORMULA	`a(n+1) = abs[ a(n) + Sum_of_digits_of(n+1)], with a(0)=0.`
	MAPLE	`P:=proc(n) local a, i, k, w; a:=0; print(a); for i from 1 by 1 to n do w:=0; k:=i; while k>0 do w:=w+k-(trunc(k/10)10); k:=trunc(k/10); od; a:=abs(a+(-1)^iw); print(a); od; end: P(100);`
	CROSSREFS	`Cf. A037123.` `Adjacent sequences: A138373 A138374 A138375 this_sequence A138377 A138378 A138379` `Sequence in context: A035544 A129718 A127375 this_sequence A077140 A003815 A131486`
	KEYWORD	`easy,nonn`
	AUTHOR	`Paolo P. Lava & Giorgio Balzarotti (ppl(AT)spl.at), May 08 2008`

page 1

Search completed in 0.002 seconds

Last modified October 11 13:47 EDT 2008. Contains 144830 sequences.

AT&T Labs Research