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 A082186 #13 Jul 02 2025 16:02:01
%S A082186 1,2,3,4,5,7,8,9,10,12,13,15,16,18,20,21,22,24,25,27,29,31,32,34,35,
%T A082186 37,38,40,41,44,45,46,48,50,52,54,55,57,59,61,62,65,66,68,70,72,73,75,
%U A082186 76,78,80,82,83,85,87,89,91,93,94,97,98,100,102,103,105,108,109,111,113
%N A082186 1 + sum of first n terms of A001221.
%H A082186 Michael De Vlieger, <a href="/A082186/b082186.txt">Table of n, a(n) for n = 1..2000</a>
%p A082186 with(numtheory): s := 1: for n from 1 to 150 do it := nops(ifactors(n)[2]): s := s+it: printf(`%d,`,s): od: # _James Sellers_, May 19 2003
%t A082186 a082186[n_] := Block[{t = Table[0, {n}], i},
%t A082186 For[i = 0, i < n, t[[i]] = 1 + Plus @@ PrimeNu /@ Range[i], i++]; t]; a082186[69] (* _Michael De Vlieger_, Dec 24 2014 *)
%Y A082186 Equals 1 + A013939.
%K A082186 nonn,easy
%O A082186 1,2
%A A082186 _Jon Perry_, May 09 2003
%E A082186 More terms from _James Sellers_, May 19 2003