A115240 a(n) = A001672(n) - A115239(n).

0, 0, 3, 10, 33, 104, 328, 1031, 3241, 10183, 31991, 100503, 315740, 991928, 3116234, 9789941, 30756009, 96622854, 303549648, 953629346, 2995914948, 9411944394, 29568495367, 92892167824, 291829352014, 916808948392, 2880240257014

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

a(5) = A001672(5) - A115239(5) = 306 - 273 = 33.

Mathematica

a[1] = Floor[Pi]; a[n_] := a[n] = Floor[a[n - 1]*Pi]; Array[ Floor[Pi^# ] - a[ # ] &, 27] (* Robert G. Wilson v *)

Crossrefs

Cf. A001672, A115239.

Sequence in context: A292549 A062454 A121523 * A027989 A096483 A093043

Adjacent sequences: A115237 A115238 A115239 * A115241 A115242 A115243

Keyword

nonn

Author

Hieronymus Fischer, Jan 17 2006

Extensions

More terms from Robert G. Wilson v, Jan 18 2006

Status

approved