OFFSET
1,3
COMMENTS
Shgz(0) = 2.2912859970626635404072825905956005414... = 1 + A073009.
MATHEMATICA
ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jul 10 2001
STATUS
approved