id:A135207 - OEIS Search Results

Search: id:A135207

Displaying 1-1 of 1 results found.

page 1

a(n)=Sum_digits{n^Sum_digits[a(n-1)]}, with a(0)=1.

+0
1

1, 1, 2, 9, 19, 40, 18, 28, 37, 45, 1, 2, 9, 46, 67, 81, 64, 55, 54, 73, 7, 36, 55, 49, 99, 109, 64, 63, 64, 34, 18, 55, 76, 81, 73, 73, 72, 82, 79, 90, 19, 49, 99, 136, 82, 63, 64, 70, 54, 73, 40, 27, 82, 82, 72, 82, 70, 72, 91, 49, 36, 64, 91, 99, 145, 79, 126, 82, 58, 126, 28 (list; graph; listen)

	OFFSET	`0,3`
	MAPLE	`P:=proc(n) local a, i, k, w; a:=1; print(a); for i from 1 by 1 to n do w:=0; k:=a; while k>0 do w:=w+k-(trunc(k/10)10); k:=trunc(k/10); od; k:=i^w; w:=0; while k>0 do w:=w+k-(trunc(k/10)10); k:=trunc(k/10); od; a:=w; print(w); od; end: P(100);`
	CROSSREFS	`Cf. A047912, A066588, A108827.` `Sequence in context: A075537 A075340 A031316 this_sequence A026541 A038249 A116014` `Adjacent sequences: A135204 A135205 A135206 this_sequence A135208 A135209 A135210`
	KEYWORD	`easy,nonn`
	AUTHOR	`Paolo P. Lava & Giorgio Balzarotti (ppl(AT)spl.at), Dec 03 2007`

page 1

Search completed in 0.002 seconds

Last modified December 8 08:31 EST 2009. Contains 170430 sequences.

AT&T Labs Research