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.

A348661 a(1) = 1; a(n) = Sum_{d|n, d < n} d * a(d)^(n/d).

This page as a plain text file.
%I A348661 #6 Nov 01 2021 19:22:13
%S A348661 1,1,1,3,1,6,1,39,4,8,1,330,1,10,9,12495,1,1446,1,1620,11,14,1,
%T A348661 1792050,6,16,580,10158,1,53002,1,2516534175,15,20,13,469241466,1,22,
%U A348661 17,774558756,1,1696170,1,712914,20160,26,1,108457624531554,8,328588,21,6383964
%N A348661 a(1) = 1; a(n) = Sum_{d|n, d < n} d * a(d)^(n/d).
%F A348661 For n > 1, a(n) is the coefficient of x^n/n in expansion of -log(Product_{k=1..n-1} (1 - a(k)*x^k)).
%t A348661 a[1] = 1; a[n_] := a[n] = Sum[If[d < n, d a[d]^(n/d), 0], {d, Divisors[n]}]; Table[a[n], {n, 1, 52}]
%Y A348661 Cf. A006241, A008578 (positions of 1's), A157313, A165552, A196545, A281145.
%K A348661 nonn
%O A348661 1,4
%A A348661 _Ilya Gutkovskiy_, Oct 28 2021