A181126 Difference of two positive 7th powers.
0, 127, 2059, 2186, 14197, 16256, 16383, 61741, 75938, 77997, 78124, 201811, 263552, 277749, 279808, 279935, 543607, 745418, 807159, 821356, 823415, 823542, 1273609, 1817216, 2019027, 2080768, 2094965, 2097024, 2097151, 2685817
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Crossrefs
Programs
-
Mathematica
nn=10^12; p=7; Union[Reap[Do[n=i^p-j^p; If[n<=nn, Sow[n]], {i,Ceiling[(nn/p)^(1/(p-1))]}, {j,i}]][[2,1]]] Join[{0},#[[2]]-#[[1]]&/@Subsets[Range[10]^7,{2}]//Union] (* Harvey P. Dale, Oct 23 2024 *)
Comments