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 A069345 #23 Sep 01 2025 03:03:46
%S A069345 1,1,2,2,4,4,6,5,7,8,10,9,12,12,13,12,16,15,18,17,19,20,22,20,23,24,
%T A069345 24,25,28,27,30,27,31,32,33,32,36,36,37,36,40,39,42,41,42,44,46,43,47,
%U A069345 47,49,49,52,50,53,52,55,56,58,56,60,60,60,58,63,63,66,65
%N A069345 n minus the number of its prime-factors: a(n) = n - A001222(n).
%C A069345 Prime factors are counted with multiplicity. - _Harvey P. Dale_, Sep 20 2011
%H A069345 Vincenzo Librandi, <a href="/A069345/b069345.txt">Table of n, a(n) for n = 1..5000</a>
%t A069345 Table[n-PrimeOmega[n],{n,70}] (* _Harvey P. Dale_, Sep 20 2011 *)
%o A069345 (PARI) a(n) = n - bigomega(n); \\ _Michel Marcus_, Apr 08 2018
%o A069345 (Magma) [n eq 1 select 1 else n-(&+[p[2]: p in Factorization(n)]): n in [1..100]]; // _Vincenzo Librandi_, Apr 09 2018
%Y A069345 Cf. A001222, A064800, A069355.
%K A069345 nonn,easy,changed
%O A069345 1,3
%A A069345 _Reinhard Zumkeller_, Mar 18 2002