This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A074069 #12 Jan 08 2025 14:50:59 %S A074069 1,2,10,18,20,25,26,43,46,55,56,71,79,104,107,111,112,113,123,133,136, %T A074069 140,142,144,145,147,150,155,165,195,196,200,204,206,210,214,216,253, %U A074069 254,259,260,264,267,327,335,343,360,363,375,376,380,387,388,393 %N A074069 Numbers k such that S(k) = Sum_{i=1..k} A068119(i) = 3*k. %t A074069 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 *) %K A074069 nonn %O A074069 1,2 %A A074069 _Benoit Cloitre_, Aug 30 2002 %E A074069 Name clarified by _Sean A. Irvine_, Jan 08 2025