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,2

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

Mathematica

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

Crossrefs

Cf. A058414.

Sequence in context: A073041 A284595 A053898 * A053890 A053896 A155890

Adjacent sequences: A058410 A058411 A058412 * A058414 A058415 A058416

Keyword

nonn,base

Author

Patrick De Geest, Nov 15 2000

Status

approved