%I A105390
%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,4,
%T A105390 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,15,
%U A105390 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="b105390.txt">Table of n, a(n) for n = 1..6000</
               a>
%H A105390 Klaus Brockhaus, <a href="a105390.gif">Plots of A105390(n)/n at various 
               scales</a>
%o A105390 (JBASIC, from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), 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.
%Y A105390 Sequence in context: A003108 A111898 A072746 this_sequence A013941 A061798 
               A029241
%Y A105390 Adjacent sequences: A105387 A105388 A105389 this_sequence A105391 A105392 
               A105393
%K A105390 nonn,base
%O A105390 1,23
%A A105390 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 04 2005