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 A105390 #9 Mar 30 2012 18:50:49 %S A105390 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,4, %T A105390 4,4,4,4,4,4,5,6,6,6,7,7,7,7,7,7,8,9,10,10,10,11,11,11,11,11,12,13,14, %U A105390 15,15,15,16,16,16,16,17,18,19,20,21,21,21,22,22,22,23,24,25,26,27,28,28 %N A105390 Number of Hannah Rollman's numbers <= n. %C A105390 a(n) = #{k: A048992(k)<=n} = n - #{k: A048991(k)<=n}; %C A105390 a(n) < n/2 for n < 740; a(n) > n/2 for 740 < n < 1260, %C A105390 see A105391 for numbers m with a(m) = m/2. %H A105390 Klaus Brockhaus, <a href="/A105390/b105390.txt">Table of n, a(n) for n = 1..6000</a> %H A105390 Klaus Brockhaus, <a href="/A105390/a105390.gif">Plots of A105390(n)/n at various scales</a> %o A105390 (JBASIC, from _Klaus Brockhaus_, Aug 15 2007) %o A105390 s$ = "" : d = 0 %o A105390 FOR n = 1 TO 100 %o A105390 sn$ = str$(n) %o A105390 IF instr(s$, sn$) > 0 THEN d = d+1 ELSE s$ = s$ + sn$ %o A105390 print d ; ","; %o A105390 NEXT %Y A105390 Cf. A048991, A048992, A105391, A131981. %K A105390 nonn,base %O A105390 1,23 %A A105390 _Reinhard Zumkeller_, Apr 04 2005