login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A253913 Numbers of the form m^k + m, with m >= 0 and k > 1. 6
0, 2, 6, 10, 12, 18, 20, 30, 34, 42, 56, 66, 68, 72, 84, 90, 110, 130, 132, 156, 182, 210, 222, 240, 246, 258, 260, 272, 306, 342, 350, 380, 420, 462, 506, 514, 520, 552, 600, 630, 650, 702, 732, 738, 756, 812, 870, 930, 992, 1010, 1026, 1028, 1056, 1122, 1190, 1260, 1302 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

MAPLE

N:= 10000: # for terms <= N

S:= 0, 2:

for k from 2 to floor(log[2](N)) do

  for m from 2 do

    v := m^k+m; if v > N then break fi;

    S:= S, v;

od od:

sort(convert({S}, list)): # Robert Israel, Apr 28 2019, changed Jul 8 2021

MATHEMATICA

max = 1000; Sort[Flatten[Table[m^k + m, {m, 2, Floor[Sqrt[max]]}, {k, 2, Floor[Log[m, max]]}]]] (* Alonso del Arte, Jan 18 2015 *)

PROG

(Python)

def aupto(lim):

    xkx = set(x**k + x for k in range(2, lim.bit_length()) for x in range(int(lim**(1/k))+2))

    return sorted(filter(lambda t: t<=lim, xkx))

print(aupto(1500)) # Michael S. Branicky, Jul 08 2021

CROSSREFS

Cf. A099225, A253914.

Sequence in context: A189395 A190003 A263309 * A190789 A071638 A028348

Adjacent sequences:  A253910 A253911 A253912 * A253914 A253915 A253916

KEYWORD

nonn

AUTHOR

Alex Ratushnyak, Jan 18 2015

EXTENSIONS

Changed to include 0 and 2 by Robert Israel, Jul 08 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 20:51 EDT 2022. Contains 354092 sequences. (Running on oeis4.)