OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[1] = Floor[Pi]; a[n_] := a[n] = Floor[a[n - 1]*Pi]; Array[ Floor[Pi^# ] - a[ # ] &, 27] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, Jan 17 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 18 2006
STATUS
approved