OFFSET
0,2
LINKS
FORMULA
a(5n)=5*a(n), a(5n+1)=5n+2, a(5n+2)=25n+5, a(5n+3)=5n+4, a(5n+4)=25n+15
MATHEMATICA
a[n_] := a[n] = Which[ Mod[n, 5] == 0, 5*a[n/5], Mod[n, 5] == 1, n+1, Mod[n, 5] == 2, 5*(n-2)+5, Mod[n, 5] == 3, n+1, True, 5*(n-4)+15]; a[0] = 0; Table[ a[n], {n, 0, 62}] (* Jean-François Alcover, Sep 24 2012 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
Corrected description and more terms from Henry Bottomley, Apr 27 2000
STATUS
approved