A048559
a(n+1) is next smallest nontrivial square beginning with a(n), initial square is 4.
Original entry on oeis.org
4, 49, 49284, 4928461209, 492846120914204828164, 4928461209142048281644440027571600000000001, 49284612091420482816444400275716000000000017667716927194638935286982918857620344809476
Offset: 0
A048561
a(n+1) is next smallest nontrivial square beginning with a(n), initial square is 9.
Original entry on oeis.org
9, 961, 9616201, 961620162020001, 9616201620200016202000200000001, 96162016202000162020002000000018891984632653500321758097698025
Offset: 0
A048557
a(1) = 1; a(n+1) is next smallest nontrivial square beginning with a(n).
Original entry on oeis.org
1, 16, 169, 169744, 16974441796, 1697444179660172924176, 16974441796601729241768240010144800000000001, 1697444179660172924176824001014480000000000182400101448000000000020000000000000000000001
Offset: 1
-
$MaxExtraPrecision = 2^10; a[n_] := a[n] = Block[{k = 10, m = a[n - 1]}, id = IntegerDigits@ m; lng = Length@ id; While[c = Ceiling[ Sqrt[ m*k]]^2; Take[ IntegerDigits@ c, lng] != id, k *= 100]; Min[c, (Sqrt[m]*10^(lng/2) + 1)^2]]; a[1] = 1; Array[a, 11] (* Robert G. Wilson v, Dec 18 2014 *)
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)
Showing 1-4 of 4 results.
Comments