login
Numbers n such that n is a substring of its square in base 8 (written in base 10).
8

%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_