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 A038669 #8 Jul 02 2025 16:01:56 %S A038669 0,1,2,4,4,6,7,9,10,11,12,15,15,17,18,20,20,23,23,25,27,29,29,32,32, %T A038669 33,34,37,38,40,40,42,44,45,46,50,50,51,52,54,54,57,57,60,61,62,63,66, %U A038669 67,68,69,71,71,74,75,78,79,81,81,84,84,85,87,89,89,92,92,94,95,97,97,101 %N A038669 [ n/2 ]+[ n/3 ]+[ n/4 ]+[ n/7 ]+[ n/11 ]+[ n/18 ]+[ n/29 ]+[ n/47 ]+[ n/76 ]+[ n/123 ]+[ n/199 ]+... (using Lucas numbers A000032). %p A038669 lucas := proc(n) option remember: if n=0 then RETURN(2) fi: if n=1 then RETURN(1) fi: lucas(n- 1)+lucas(n-2) end: for j from 0 to 100 do it[j] := lucas(j) od: for n from 1 to 200 do printf(`%d,`,floor(n/2) + sum(floor(n/it[k]), k=2..15)) od: %Y A038669 Cf. A038663. %K A038669 nonn %O A038669 1,3 %A A038669 Antreas P. Hatzipolakis (xpolakis(AT)hol.gr) %E A038669 More terms from _James Sellers_, Feb 19 2001