%I #14 Apr 05 2024 10:03:29
%S 0,1,8,27,64,283,290,512,545,1948,2320,4096,4360,8452,13813,16158,
%T 16642,23063,26139,27427,27734,32768,33025,67616,87723,110503,129264,
%U 130591,133136,184504,206573,226094,262144,264200,526340,701784,1044728,1050626
%N Numbers n such that n is a substring of its square in base 8 (written in base 10).
%t Select[Range[0, 10^6], StringContainsQ[IntegerString[#^2, 8], IntegerString[#, 8]] &] (* _Paolo Xausa_, Apr 05 2024 *)
%Y Cf. A018826 (base 2), A018827 (base 3), A018828 (base 4), A018829 (base 5), A018830 (base 6), A018831 (base 7), A018833 (base 9), A018834 (base 10).
%K nonn,base
%O 1,3
%A _David W. Wilson_