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

1, 2, 12, 21, 38, 102, 201, 1002, 1049, 2001, 10002, 10679, 20001, 20348, 100002, 100549, 200001, 202512, 375501, 643771, 1000002, 1020348, 2000001, 2002848, 10000002, 10200201, 20000001, 20024988, 20100102, 100000002, 100202001

Offset: 1

Author

Patrick De Geest, Nov 15 2000

Keywords

• nonn
• base

Links

• Zhao Hui Du, Table of n, a(n) for n = 1..382
• Patrick De Geest, Index to related sequences
• Hisanori Mishima, Sporadic tridigital solutions

Crossrefs

Cf. A058414.

Programs

Mathematica

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