A249804
a(n+1) is the next smallest nontrivial cube beginning with a(n), initial term is 4.
Original entry on oeis.org
4, 4096, 409675763483, 4096757634832457594649749511342547903
Offset: 1
-
a(n)=k=n; s=1; while(s<10^7, if(s%10, if(s^3\(10^(#Str(s^3)-#Str(k)))==k, print1(s^3, ", "); k=s^3)); s++)
a(4)
-
def f(x):
n = x
s = 1
while s < 10**7:
if s % 10:
S = str(s**3)
if S.startswith(str(n)):
print(s**3, end=', ')
n = s**3
s += 1
f(4)
A249828
a(n+1) is the next smallest nontrivial cube beginning with a(n), initial term is 6.
Original entry on oeis.org
6, 64, 6434856, 64348563687280925127256, 6434856368728092512725673603219352207940941512476919680996778471241599
Offset: 1
-
a(n)=k=n; s=1; while(s<10^7, if(s%10, if(s^3\(10^(#Str(s^3)-#Str(k)))==k, print1(s^3, ", "); k=s^3)); s++)
a(6)
-
def f(x):
n = x
s = 1
while s < 10**7:
if s % 10:
S = str(s**3)
if S.startswith(str(n)):
print(s**3, end=', ')
n = s**3
s += 1
f(6)
A249834
a(n+1) is the next smallest nontrivial cube beginning with a(n), initial term is 7.
Original entry on oeis.org
7, 729, 7290099019, 72900990191475181426079596544
Offset: 1
-
a(n)=k=n; s=1; while(s<10^7, if(s%10, if(s^3\(10^(#Str(s^3)-#Str(k)))==k, print1(s^3, ", "); k=s^3)); s++)
a(7)
-
def f(x):
n = x
s = 1
while s < 10**7:
if s % 10:
S = str(s**3)
if S.startswith(str(n)):
print(s**3, end=', ')
n = s**3
s += 1
f(7)
A249805
a(n+1) is the next smallest nontrivial cube beginning with a(n), initial term is 5.
Original entry on oeis.org
5, 512, 5124031424, 5124031424891652800051720000001
Offset: 1
-
a(n)=k=n; s=1; while(s<10^7, if(s%10, if(s^3\(10^(#Str(s^3)-#Str(k)))==k, print1(s^3, ", "); k=s^3)); s++)
a(5)
-
def f(x):
n = x
s = 1
while s < 10**7:
if s % 10:
S = str(s**3)
if S.startswith(str(n)):
print(s**3, end=', ')
n = s**3
s += 1
f(5)
A249837
a(n+1) is the next smallest nontrivial cube beginning with a(n), initial term is 9.
Original entry on oeis.org
9, 9261, 92615351886784, 9261535188678457128255779014690172977343833, 926153518867845712825577901469017297734383369607525414854584903918819898290730346512973206455943454340951813592133138664220381927
Offset: 1
-
nextterm:= proc(x) local d,s,t;
for d from 1 do
s:= traperror(ceil((x*10^d+1)^(1/3)));
while not type(s,integer) do
Digits:= Digits *2;
s:= traperror(ceil((x*10^d+1)^(1/3)));
od:
t:= traperror(floor(((x+1)*10^d-1)^(1/3)));
while not type(t,integer) do
Digits:= Digits *2;
t:= traperror(floor(((x+1)*10^d-1)^(1/3)));
od:
if s <= t then return s^3 fi;
od:
end proc:
a[1]:= 9;
for n from 2 to 6 do a[n]:= nextterm(a[n-1]) od; # Robert Israel, Dec 04 2014
-
a(n)=k=n; s=1; while(s<10^7, if(s%10, if(s^3\(10^(#Str(s^3)-#Str(k)))==k, print1(s^3, ", "); k=s^3)); s++)
a(9)
-
def f(x):
n = x
s = 1
while s < 10**7:
if s % 10:
S = str(s**3)
if S.startswith(str(n)):
print(s**3, end=', ')
n = s**3
s += 1
f(9)
Showing 1-5 of 5 results.
Comments