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 A264441 #17 Mar 04 2018 10:35:31 %S A264441 1,1,1,1,1,1,1,1,1,3,1,3,1,5,4,4,1,7,1,7,6,9,1,9,3,11,6,11,1,15,1,11, %T A264441 10,15,8,16,1,17,12,17,1,23,1,19,16,21,1,23,5,25,16,23,1,29,12,25,18, %U A264441 27,1,33,1,29,22,26,14,39,1,31,22,39,1 %N A264441 Length of row n of the irregular triangle A133995 (positive integers <= n which are neither divisors of n nor coprime to n). %H A264441 Antti Karttunen, <a href="/A264441/b264441.txt">Table of n, a(n) for n = 1..65537</a> %F A264441 a(1) = 1, a(4) = 1 and a(n) = 1 if n is a prime (n from A000040) else a(n) = A045763(n). %F A264441 a(n) = max(1, A045763(n)). - _Robert Israel_, Jan 28 2016 %p A264441 seq(max(1, n - numtheory:-tau(n) - numtheory:-phi(n) + 1), n=1..100); # _Robert Israel_, Jan 28 2016 %t A264441 a[1] = a[4] = 1; a[n_] := If[PrimeQ[n], 1, n + 1 - DivisorSigma[0, n] - EulerPhi[n]]; Array[a, 100] (* _Jean-François Alcover_, Jan 18 2016 *) %o A264441 (PARI) A264441(n) = max(1,n+1-numdiv(n)-eulerphi(n)); \\ _Antti Karttunen_, Mar 04 2018, after code in A045763. %Y A264441 Cf. A000040, A045763, A133995. %K A264441 nonn,easy %O A264441 1,10 %A A264441 _Wolfdieter Lang_, Jan 16 2016