Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #27 Aug 26 2024 09:55:44
%S 0,1,100,10000,55225,1000000,1100401,1525225,5522500,8898289,22676644,
%T 23348224,100000000,107661376,110040100,110103049,110166016,119311929,
%U 125552025,152152225,152522500,153388225,155002500,160022500,204204100,219899241,262602025
%N Squares k^2 whose digits appear in k.
%H Robert Israel, <a href="/A029775/b029775.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A029774(n)^2. - _Sean A. Irvine_, Mar 04 2020
%e The digits of 55225 (= 235^2) are a subset of {2,3,5}.
%p filter:= proc(k) convert(convert(k^2,base,10),set) subset convert(convert(k,base,10),set) end proc:
%p map(t -> t^2, select(filter, [$0..10^5])); # _Robert Israel_, Aug 25 2024
%Y Cf. A029774.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
%E Title improved and more terms from _Sean A. Irvine_, Mar 04 2020