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 A358174 #7 Nov 05 2022 21:02:47 %S A358174 675,9800,235224,465124,1825200,11309768,384199200,592192224, %T A358174 4931691075,5425069447,13051463048,221322261600,865363202000, %U A358174 8192480787000,11968683934831,13325427460800,15061377048200,28821995554247,48689748233307,511643454094368,1558709801289000 %N A358174 Smaller of a pair of numbers (m, m+1) such that both are products P of composite prime powers with omega(P) > 1. %C A358174 a(n) = A286708(k), where k is a position of 1 in A358173. %e A358174 a(1) = 675, since 675 = 3^3 * 5^2 and 676 = 2^2 * 13^2 are the smallest products of at least 2 composite prime powers that differ by 1. %e A358174 a(2) = 9800 since (3^4 * 11^2) - (2^3 * 5^2 * 7^2) = 1. %e A358174 a(3) = 235224 since (5^2 * 97^2) - (2^3 * 3^5 * 11^2) = 1. %t A358174 nn = 2^36; s = Select[Rest@ Union@ Flatten@ Table[a^2*b^3, {b, nn^(1/3)}, {a, Sqrt[nn/b^3]}], ! PrimePowerQ[#] &]; Map[s[[#]] &, Position[Differences[s], 1][[All, 1]] ] %Y A358174 Cf. A286708, A358173. %K A358174 nonn %O A358174 1,1 %A A358174 _Michael De Vlieger_, Nov 01 2022