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.

A324907 a(n) = A007895(A113175(n)).

This page as a plain text file.
%I A324907 #5 Apr 14 2019 17:22:52
%S A324907 1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,2,1,1,2,1,1,1,3,1,1,1,1,2,1,1,2,1,
%T A324907 3,2,1,1,2,1,1,2,1,1,3,1,1,1,4,3,2,1,1,1,3,1,2,1,1,2,1,1,3,1,3,2,1,1,
%U A324907 2,3,1,2,1,1,3,1,4,2,1,1,2,1,1,2,3,1,2,1,1,3,4,1,2,1,3,1,1,4,3,3,1,2,1,1,4
%N A324907 a(n) = A007895(A113175(n)).
%H A324907 Antti Karttunen, <a href="/A324907/b324907.txt">Table of n, a(n) for n = 1..17711</a>
%F A324907 a(n) = A007895(A113175(n)).
%F A324907 a(2n) = a(n).
%o A324907 (PARI)
%o A324907 A113175(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = fibonacci(f[i, 1])); factorback(f); };
%o A324907 A007895(n) = { my(s=0); while(n>0, s++; n -= fibonacci(1+A072649(n))); (s); }
%o A324907 A072649(n) = { my(m); if(n<1, 0, m=0; until(fibonacci(m)>n, m++); m-2); }; \\ From A072649
%o A324907 A324907(n) = A007895(A113175(n));
%Y A324907 Cf. A113175, A007895, A300837, A324888, A324905.
%K A324907 nonn
%O A324907 1,9
%A A324907 _Antti Karttunen_, Apr 14 2019