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 A085494 #16 Apr 16 2025 04:32:23
%S A085494 1,3,5,7,15,17,19,27,31,53,63,65,69,77,87,99,103,127,161,195,255,271,
%T A085494 303,367,413,463,485,495,499,511,579,649,725,819,859,867,967,1013,
%U A085494 1023,1035,1147,1183,1311,1315,1351,1371,1375,1457,1483,1503,1695,1887,1951
%N A085494 Numbers k having exactly one partition into distinct divisors of k+1.
%C A085494 Includes every 2^k-1 and is therefore infinite. - _David W. Wilson_, Feb 02 2006
%H A085494 Amiram Eldar, <a href="/A085494/b085494.txt">Table of n, a(n) for n = 1..330</a>
%F A085494 A085491(a(n)) = 1.
%t A085494 q[k_] := Module[{d = Divisors[k+1], x}, CoefficientList[Product[1 + x^i, {i, d}], x][[1+k]] == 1]; Select[Range[2000], q] (* _Amiram Eldar_, Apr 16 2025 *)
%Y A085494 Cf. A085491, A085499.
%Y A085494 Subsequence of A085493.
%K A085494 nonn
%O A085494 1,2
%A A085494 _Reinhard Zumkeller_, Jul 03 2003
%E A085494 More terms from _David W. Wilson_, Feb 02 2006