a[n_Integer?NonNegative] := a[n] = Module[{m, s, g}, s = Subsets[Range[n], {2}]; m = Length[s]; g = Graph[Range[n], UndirectedEdge @@@ #] & /@ (Pick[s, #, 1] & /@ (IntegerDigits[#, 2, m] & /@ Range[0, 2^m - 1])); Length[DeleteDuplicates[Select[Select[g, ConnectedGraphQ], PlanarGraphQ], IsomorphicGraphQ]]]; Table[a[n], {n, 0, 6}] (*
Robert P. P. McKone, Oct 14 2023 *)