A284743 Positive numbers that are not the sum of (any number of) distinct perfect powers (A001597).
2, 3, 6, 7, 11, 15, 19, 23
Offset: 1
Examples
22 is not in the sequence since 22 = 1 + 2^2 + 2^3 + 3^2.
References
- David Wells, The Penguin Dictionary of Curious and Interesting Numbers, Penguin 1987, p. 101.
Programs
-
Mathematica
PerfectPowerQ[n_] := n==1 || GCD@@FactorInteger[n][[All, 2]]>1; a=Select[Range[128], PerfectPowerQ[#] &]; nn = Dimensions[a][[1]]; t=Rest[CoefficientList[Series[Product[(1 + x^a[[k]]),{k,nn}],{x,0,a[[nn]]}], x]]; Flatten[Position[t, 0]]
Comments