OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
a[n_]:= a[n]= If[Mod[n, 3]==0, 2*Floor[n/3] +1, If[Mod[n, 3]==1, 1, 2*Floor[n/3] +1]]; Table[a[n], {n, 0, 100}] (* G. C. Greubel, Jun 16 2021 *)
PROG
(Sage)
def A110091(n):
if (n%3==0): return 2*(n//3) + 1
elif (n%3==1): return 1
else: return 2*(n//3) +1
[A110091(n) for n in (0..100)] # G. C. Greubel, Jun 16 2021
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Jul 14 2005
STATUS
approved