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 A298676 #41 Jan 30 2018 09:31:30
%S A298676 1,2,3,5,5,7,7,10,11,13,13,18,19,26,31,36,41,48,59,71,84,94,106,123,
%T A298676 146,165,187,210,240,275,318,364,407,465,525,593,672,756,849,966,1080,
%U A298676 1207,1354,1530,1718,1925,2135,2377,2667,2997,3351,3736,4141,4598,5125
%N A298676 Number of partitions of n that can be uniquely recovered from their P-graphs.
%C A298676 a(n) is the number of partitions of n that can be uniquely recovered from its P-graph, the simple graph whose vertices are the parts of the partition, two of which are joined by an edge if, and only if, they have a common factor greater than 1.
%H A298676 Bernardo Recamán Santos, <a href="https://puzzling.stackexchange.com/questions/58136/a-unique-partition-of-200-into-6-parts">A unique partition of 200 into 6 parts</a>, Puzzling Stack Exchange, Dec 17 2017.
%e A298676 a(1) = 1 because the sole partition of 1 can be recovered from its P-graph, a single vertex.
%e A298676 a(2) = 2 because both partitions of 2 can be recovered from their corresponding P-graphs.
%t A298676 pgraph[p_] := With[{v = Range[Length[p]]}, Graph[v, UndirectedEdge @@@ Select[Subsets[v, {2}], !CoprimeQ @@ p[[#]] &]]];
%t A298676 a[n_] := Count[Length /@ Gather[pgraph /@ IntegerPartitions[n], IsomorphicGraphQ], 1];
%t A298676 Array[a, 20]
%t A298676 (* _Andrey Zabolotskiy_, Jan 30 2018 *)
%K A298676 nonn
%O A298676 1,2
%A A298676 _Bernardo Recamán_, Jan 28 2018
%E A298676 a(23)-a(50) from _Freddy Barrera_, Jan 29 2018
%E A298676 a(51)-a(55) from _Andrey Zabolotskiy_, Jan 30 2018