A189117 Conjectured number of pairs of consecutive perfect powers (A001597) differing by n.
1, 1, 2, 3, 1, 0, 2, 1, 3, 1, 2, 1, 3, 0, 2, 1, 5, 2, 3, 1, 1, 0, 1, 2, 1, 2, 1, 3, 0, 1, 0, 1, 1, 0, 2, 1, 1, 1, 3, 1, 1, 0, 1, 0, 1, 0, 3, 1, 2, 0, 1, 0, 2, 0, 2, 1, 1, 0, 1, 2, 1, 0, 1, 0, 3, 0, 2, 2, 1, 0, 2, 0, 2, 1, 1, 1, 1, 0, 3, 1, 1, 0, 1, 0, 1, 0, 1, 0, 3, 0, 0, 1, 1, 1, 2, 0, 2, 0, 1, 5
Offset: 1
Keywords
Examples
1 = 3^2 - 2^3; 2 = 3^3 - 2^5; 3 = 2^2 - 1^2 = 2^7 - 5^3; 4 = 2^3 - 2^2 = 6^2 - 2^5 = 5^3 - 11^2.
Crossrefs
Programs
-
Mathematica
nn = 10^12; pp = Join[{1}, Union[Flatten[Table[n^i, {i, 2, Log[2, nn]}, {n, 2, nn^(1/i)}]]]]; d = Select[Differences[pp], # <= 100 &]; Table[Count[d, n], {n, 100}]
Comments