A094700 Number of partition numbers that are smaller than and coprime to the n-th partition number.
0, 1, 2, 3, 4, 5, 6, 5, 6, 4, 4, 6, 7, 13, 9, 8, 5, 7, 5, 6, 8, 5, 8, 17, 7, 10, 6, 7, 10, 10, 10, 10, 10, 13, 12, 11, 36, 14, 13, 5, 9, 8, 12, 12, 31, 26, 14, 17, 19, 18, 14, 15, 10, 21, 10, 19, 30, 17, 9, 9, 59, 7, 16, 36, 11, 37, 23, 67, 19, 47, 19, 25, 39, 70, 13, 10, 52, 77, 24
Offset: 0
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
With[{p = Table[PartitionsP[n], {n, 0, 100}]}, Table[Count[p[[1;;k-1]], ?(CoprimeQ[#,p[[k]]]&)], {k, 1, Length[p]}]] (* _Amiram Eldar, May 15 2025 *)
Extensions
Offset corrected by Amiram Eldar, May 15 2025
Comments