1,2

Table of n, a(n) for n=1..105.

f[n_] := Block[{rd = RealDigits[Pi^n, 10, 200]}, rd[[1, rd[[2]] + n]]]; Table[ f[n], {n, 105}] (* Robert G. Wilson v, Jul 18 2005 *)

Sequence in context: A212708 A028969 A029681 * A153629 A154155 A021942

Adjacent sequences: A109914 A109915 A109916 * A109918 A109919 A109920

base,easy,nonn

Amarnath Murthy, Jul 16 2005

More terms from Robert G. Wilson v, Jul 18 2005

approved