A074069 Numbers n such that S(n) = 3n (see A068119).

1, 2, 10, 18, 20, 25, 26, 43, 46, 55, 56, 71, 79, 104, 107, 111, 112, 113, 123, 133, 136, 140, 142, 144, 145, 147, 150, 155, 165, 195, 196, 200, 204, 206, 210, 214, 216, 253, 254, 259, 260, 264, 267, 327, 335, 343, 360, 363, 375, 376, 380, 387, 388, 393

Offset

1,2

Links

Table of n, a(n) for n=1..54.

Mathematica

ce[n_] := Length[NestWhileList[#*Ceiling[#] &, n + 1/4, ! IntegerQ[#] &]] - 1; nn = Range[395]; t = Accumulate[ce /@ nn]; Select[nn, t[[#]] == 3*# &] (* Jayanta Basu, Jul 29 2013 *)

Crossrefs

Sequence in context: A077247 A341032 A082939 * A069081 A126005 A017089

Adjacent sequences: A074066 A074067 A074068 * A074070 A074071 A074072

Keyword

nonn

Author

Benoit Cloitre, Aug 30 2002

Status

approved