cp's OEIS Frontend

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.

A335881 a(n) = max(A329697(n), A331410(n)).

This page as a plain text file.
%I A335881 #9 Jun 30 2020 00:16:17
%S A335881 0,0,1,0,2,1,2,0,2,2,2,1,2,2,3,0,3,2,3,2,3,2,3,1,4,2,3,2,4,3,3,0,3,3,
%T A335881 3,2,4,3,3,2,3,3,4,2,4,3,4,1,4,4,4,2,4,3,4,2,4,4,4,3,3,3,4,0,4,3,4,3,
%U A335881 4,3,4,2,5,4,5,3,4,3,4,2,4,3,3,3,5,4,5,2,5,4,4,3,4,4,5,1,3,4,4,4,5,4,3,2,4
%N A335881 a(n) = max(A329697(n), A331410(n)).
%H A335881 Antti Karttunen, <a href="/A335881/b335881.txt">Table of n, a(n) for n = 1..65537</a>
%F A335881 a(n) = max(A329697(n), A331410(n)).
%F A335881 For all n >= 1, A335904(n) >= A335884(n) >= a(n) >= A335875(n) >= A335885(n).
%o A335881 (PARI)
%o A335881 A329697(n) = { my(f=factor(n)); sum(k=1,#f~,if(2==f[k,1],0,f[k,2]*(1+A329697(f[k,1]-1)))); };
%o A335881 A331410(n) = { my(f=factor(n)); sum(k=1,#f~,if(2==f[k,1],0,f[k,2]*(1+A331410(f[k,1]+1)))); };
%o A335881 A335881(n) = max(A329697(n),A331410(n));
%Y A335881 Cf. A329697, A331410, A335875, A335877, A335884, A335885, A335904.
%Y A335881 Cf. A329662 (apparently the positions of records).
%K A335881 nonn
%O A335881 1,5
%A A335881 _Antti Karttunen_, Jun 29 2020