A136839 Numbers k such that k and k^2 use only the digits 0, 1, 3, 4 and 7.

0, 1, 10, 100, 1000, 1071, 10000, 10710, 100000, 107100, 174071, 370771, 1000000, 1071000, 1170771, 1740710, 1743771, 3707710, 10000000, 10710000, 11707710, 17334071, 17407100, 17437710, 37077100, 100000000, 100370001, 107100000, 117077100, 133310701, 173340710, 174071000, 174073071, 174377100, 370771000, 374713771, 414017001

Offset

1,3

Comments

Generated with DrScheme.

Links

Jonathan Wellons, Table of n, a(n) for n = 1..230

J. Wellons, Tables of Shared Digits [archived]

Example

414013773134071^2 = 171407404344710010137741033041.

Mathematica

With[{c={0, 1, 3, 4, 7}}, Select[FromDigits/@Tuples[c, 9], SubsetQ[ c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, May 06 2018 *)

Crossrefs

Sequence in context: A171758 A115798 A077439 * A136863 A031201 A228989

Adjacent sequences: A136836 A136837 A136838 * A136840 A136841 A136842

Keyword

base,nonn,changed

Author

Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008

Status

approved