OFFSET
1,1
MATHEMATICA
f[n_] := Block[{c = 1, k = 4 n/3}, While[ ! IntegerQ[k], c++; k = 4*Ceiling[k]/3]; c]; Select[Range[2000], f[3*# + 1] == 7 &] (* Stefan Steinerberger, Aug 20 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Aug 18 2007
EXTENSIONS
More terms from Stefan Steinerberger, Aug 20 2007
STATUS
approved