A304095 -id:A304095 - cp's OEIS frontend

A304102 a(n) = Product_{d|n, dA304101(d)-1).

1, 2, 2, 4, 2, 8, 2, 12, 4, 8, 2, 120, 2, 12, 8, 24, 2, 200, 2, 120, 12, 12, 2, 1680, 4, 8, 20, 180, 2, 2000, 2, 120, 12, 44, 12, 12600, 2, 44, 8, 1680, 2, 1200, 2, 180, 200, 20, 2, 42000, 6, 440, 44, 120, 2, 7800, 12, 3960, 44, 12, 2, 3234000, 2, 44, 120, 840, 8, 10200, 2, 264, 20, 3000, 2, 630000, 2, 20, 440, 1452, 18, 2000, 2, 109200, 260, 44, 2, 1386000

Offset: 1

Antti Karttunen, May 13 2018

nonn

Antti Karttunen, Table of n, a(n) for n = 1..4181

Cf. A304101, A304103 (restricted growth sequence transform of this sequence), A304104.

\\ Needs also code from A304101:
A304102(n) = { my(m=1); fordiv(n,d,if(dA304101(d)-1))); (m); };

a(n) = Product_{d|n, dA000040(A304101(d)-1).
a(n) = 2*A304104(n) / A000040(A304101(n)-1).
Other identities. For all n >= 1:
A001222(a(n)) = A032741(n).
A007814(a(n)) = A293435(n).
A007949(a(n)) = A304095(n).

A304096 Number of Lucas numbers larger than 3 (4, 7, 11, 18, ...) that divide n.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 2, 1, 0, 0, 1, 1, 0, 1, 2, 0, 0, 0, 1, 0, 1, 0, 2, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 2, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 2, 0, 0, 0, 2, 2, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 2, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 2, 0, 1, 0, 2, 0, 0, 0, 2, 0, 0, 1, 1

Offset: 1

Antti Karttunen, May 13 2018

nonn

a(n) is the number of the divisors d of n that are of the form d = A000045(k-1) + A000045(k+1), for k >= 3.

			The divisors of 4 are 1, 2 and 4. Of these only 4 is a Lucas number larger than 3, thus a(4) = 1.
The divisors of 28 are 1, 2, 4, 7, 14 and 28. Of these 4 and 7 are Lucas numbers (A000032) larger than 3, thus a(28) = 2.

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A000032, A000045, A000204, A093540, A102460, A304092, A304094, A304095, A304104.

Cf. also A005086, A300837.

A102460(n) = { my(u1=1,u2=3,old_u1); if(n<=2,sign(n),while(n>u2,old_u1=u1;u1=u2;u2=old_u1+u2);(u2==n)); };
A304096(n) = sumdiv(n,d,(d>3)*A102460(d));

a(n) = Sum_{d|n, d>3} A102460(d).
a(n) = A304094(n) - A079978(n) - 1.
a(n) = A304092(n) - A059841(n) - A079978(n) - 1.
a(n) = A007949(A304104(n)).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A093540 - 4/3 = 0.629524... . - Amiram Eldar, Dec 31 2023

A304103 Restricted growth sequence transform of A304102, a filter sequence related to the proper divisors of n expressed in Fibonacci number system.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 6, 2, 5, 4, 7, 2, 8, 2, 6, 5, 5, 2, 9, 3, 4, 10, 11, 2, 12, 2, 6, 5, 13, 5, 14, 2, 13, 4, 9, 2, 15, 2, 11, 8, 10, 2, 16, 17, 18, 13, 6, 2, 19, 5, 20, 13, 5, 2, 21, 2, 13, 6, 22, 4, 23, 2, 24, 10, 25, 2, 26, 2, 10, 18, 27, 28, 12, 2, 29, 30, 13, 2, 31, 13, 32, 5, 33, 2, 34, 5, 35, 13, 5, 13, 21, 2, 36, 37, 38, 2, 39, 2, 9, 15

Offset: 1

Antti Karttunen, May 13 2018

nonn

For all i, j: a(i) = a(j) => b(i) = b(j), where b can be any of {A000005, A293435, A304095 or A300836} for example.

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A293435, A304095, A300836, A304102.
Cf. also A300835, A304105, A305800.
Cf. A305793 (analogous filter for base 2).

\\ Needs also code from A304101.
up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
A304102(n) = { my(m=1); fordiv(n,d,if(dA304101(d)-1))); (m); };
write_to_bfile(1,rgs_transform(vector(up_to,n,A304102(n))),"b304103.txt");

A304093 a(n) is the number of the proper divisors of n that are Lucas numbers (A000204, with 2 excluded).

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 3, 1, 2, 2, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 4, 1, 1, 2, 2, 1, 3, 1, 3, 2, 1, 1, 3, 2, 1, 2, 2, 1, 3, 2, 3, 2, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 2, 2, 2, 1, 4, 1, 1, 2, 2, 3, 2, 1, 2, 2, 1, 1, 4, 1, 1, 3, 3, 1, 3, 2, 2, 2, 2, 1, 3, 1, 2, 3, 2, 1, 2, 1, 2, 3

Offset: 1

Antti Karttunen, May 13 2018

nonn

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A000204, A093540, A304091, A304094, A304095.

Cf. also A293435, A300836.

isA000204(n) = { my(u1=1,u2=3,old_u1); if(n<=2,(n%2),while(n>u2,old_u1=u1;u1=u2;u2=old_u1+u2);(u2==n)); };
A304093(n) = sumdiv(n,d,(dA000204(d));

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A093540. - Amiram Eldar, Jul 05 2025

cp's OEIS Frontend

A304102 a(n) = Product_{d|n, dA304101(d)-1).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A304096 Number of Lucas numbers larger than 3 (4, 7, 11, 18, ...) that divide n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A304103 Restricted growth sequence transform of A304102, a filter sequence related to the proper divisors of n expressed in Fibonacci number system.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A304093 a(n) is the number of the proper divisors of n that are Lucas numbers (A000204, with 2 excluded).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula