A058413 - OEIS

%I #16 Mar 09 2024 18:30:28

%S 1,2,12,21,38,102,201,1002,1049,2001,10002,10679,20001,20348,100002,

%T 100549,200001,202512,375501,643771,1000002,1020348,2000001,2002848,

%U 10000002,10200201,20000001,20024988,20100102,100000002,100202001

%N Numbers k such that k^2 contains only digits {0,1,4}, not ending with zero.

%H Zhao Hui Du, <a href="/A058413/b058413.txt">Table of n, a(n) for n = 1..382</a>

%H Patrick De Geest, <a href="http://www.worldofnumbers.com/threedigits.htm">Index to related sequences</a>

%H Hisanori Mishima, <a href="http://www.asahi-net.or.jp/~KC2H-MSM/mathland/math02/math0210.htm#014">Sporadic tridigital solutions</a>

%t Select[Range[1, 10000], (ContainsOnly[#, {0, 1, 4}] && #[[-1]] != 0) &@ IntegerDigits[#^2] &] (* _Julien Kluge_, Jul 08 2016 *)

%Y Cf. A058414.

%K nonn,base

%O 1,2

%A _Patrick De Geest_, Nov 15 2000