OFFSET
1,1
COMMENTS
Includes 10*x^6 and 10*x^6 + 1 for all x >= 1.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1738
EXAMPLE
a(6) = 1441 is the concatenation of 1^3 and 21^2 and also the concatenation of 12^2 and 1^3.
MAPLE
N:= 7: # for terms of up to N digits
for d from 1 to N-1 do
S[d]:= {seq(i^2, i=ceil(10^((d-1)/2)) .. floor((10^d-1)^(1/2)))}:
C[d]:= {seq(i^3, i=ceil(10^((d-1)/3)) .. floor((10^d-1)^(1/3)))}:
od:
SC:= {seq(seq(seq(seq(10^i*s+c, s=S[j]), c=C[i]), j=1..N-i), i=1..N-1), seq(seq(10*s, s=S[i]), i=1..N-1)}:
CS:= {seq(seq(seq(seq(10^i*c+s, c=C[j]), s=S[i]), j=1..N-i), i=1..N-1), seq(seq(10*c, c=C[i]), i=1..N-1)}:
sort(convert(SC intersect CS, list));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Oct 19 2023
STATUS
approved