cp's OEIS Frontend

A057895 Nonnegative numbers which can be written as m^k-m [with m and k nonnegative and 0^0 taken as 1].

%I A057895 #17 May 24 2019 02:01:49
%S A057895 0,1,2,6,12,14,20,24,30,42,56,60,62,72,78,90,110,120,126,132,156,182,
%T A057895 210,240,252,254,272,306,336,342,380,420,462,504,506,510,552,600,620,
%U A057895 650,702,720,726,756,812,870,930,990,992,1020,1022,1056,1122,1190,1260
%N A057895 Nonnegative numbers which can be written as m^k-m [with m and k nonnegative and 0^0 taken as 1].
%H A057895 Robert Israel, <a href="/A057895/b057895.txt">Table of n, a(n) for n = 0..10000</a>
%e A057895 a(8)=30 is in the sequence since 30=2^6-2 (and also =6^2-6).
%p A057895 N:= 1000: # to get all entries up to N
%p A057895 S:= {0,1}:
%p A057895 for m from 2 to floor((1+sqrt(1+4*N))/2) do
%p A057895      S:= S union {seq(m^k - m,k=2 .. floor(log(N+m)/log(m)))}
%p A057895 end do:
%p A057895 S; # _Robert Israel_, Feb 12 2013
%Y A057895 Cf. A000918, A057896, A308324.
%K A057895 nonn
%O A057895 0,3
%A A057895 _Henry Bottomley_, Sep 26 2000