A129122 Numbers k such that A085068(3*k+1) = 7.

3, 38, 60, 62, 75, 107, 119, 132, 156, 164, 188, 213, 245, 300, 332, 357, 381, 389, 413, 426, 438, 470, 483, 485, 507, 542, 564, 566, 623, 651, 708, 710, 732, 767, 789, 791, 804, 836, 848, 861, 885, 893, 917, 942, 974, 1029, 1061, 1086, 1110, 1118, 1142, 1155

Offset: 1

Author

Benoit Cloitre, Aug 18 2007

Keywords

• nonn

Programs

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 *)

Extensions

More terms from Stefan Steinerberger, Aug 20 2007