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.
%I A094700 #16 May 15 2025 08:17:41
%S A094700 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,
%T A094700 10,10,13,12,11,36,14,13,5,9,8,12,12,31,26,14,17,19,18,14,15,10,21,10,
%U A094700 19,30,17,9,9,59,7,16,36,11,37,23,67,19,47,19,25,39,70,13,10,52,77,24
%N A094700 Number of partition numbers that are smaller than and coprime to the n-th partition number.
%C A094700 a(n) = n iff n <= 1 or A000041(n) is prime. [corrected by _Amiram Eldar_, May 15 2025]
%H A094700 Amiram Eldar, <a href="/A094700/b094700.txt">Table of n, a(n) for n = 0..10000</a>
%t A094700 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 *)
%Y A094700 Cf. A000041, A046063, A049575, A094699.
%K A094700 nonn
%O A094700 0,3
%A A094700 _Reinhard Zumkeller_, May 20 2004
%E A094700 Offset corrected by _Amiram Eldar_, May 15 2025