login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A341697 a(1) = a(2) = 1; a(n+1) = Sum_{d|n, d < n} a(n/d) * a(d). 2
1, 1, 1, 1, 2, 2, 4, 4, 6, 7, 11, 11, 17, 17, 25, 29, 38, 38, 54, 54, 72, 80, 102, 102, 136, 140, 174, 186, 228, 228, 300, 300, 366, 388, 464, 480, 594, 594, 702, 736, 874, 874, 1068, 1068, 1250, 1324, 1528, 1528, 1828, 1844, 2144, 2220, 2534, 2534, 2982, 3026, 3464, 3572, 4028, 4028 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,5

LINKS

Table of n, a(n) for n=1..60.

MATHEMATICA

a[1] = a[2] = 1; a[n_] := a[n] = Sum[If[d < (n - 1), a[(n - 1)/d] a[d], 0], {d, Divisors[n - 1]}]; Table[a[n], {n, 60}]

PROG

(PARI) A341697(n) = if(n<3, 1, sumdiv(n-1, d, if(d<(n-1), A341697((n-1)/d)*A341697(d), 0))); \\ Antti Karttunen, Feb 17 2021

CROSSREFS

Cf. A038044, A122698, A333051, A341698.

Sequence in context: A035940 A067772 A078374 * A242984 A027590 A007212

Adjacent sequences:  A341692 A341694 A341696 * A341698 A341699 A341700

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Feb 17 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 10 18:17 EDT 2021. Contains 342853 sequences. (Running on oeis4.)