A136861 Numbers k such that k and k^2 use only the digits 0, 1, 4, 6 and 8.

0, 1, 4, 8, 10, 40, 41, 80, 100, 104, 108, 400, 401, 408, 410, 641, 800, 801, 804, 1000, 1004, 1008, 1040, 1080, 4000, 4001, 4008, 4010, 4080, 4100, 6410, 6441, 8000, 8001, 8004, 8010, 8040, 10000, 10004, 10008, 10040, 10080, 10400, 10401, 10800, 10801, 40000, 40001, 40008, 40010, 40080, 40100, 40604, 40800, 41000, 64100, 64410, 66441, 80000, 80001

Offset

1,3

Comments

Generated with DrScheme.

Links

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

J. Wellons, Tables of Shared Digits [archived]

Example

68418648641^2 = 4681111481860611146881.

Mathematica

id2Q[n_]:=Module[{idn2=IntegerDigits[n^2], digs={0, 1, 4, 6, 8}}, And@@Table[ MemberQ[digs, idn2[[i]]], {i, Length[idn2]}]]; Select[Union[Flatten[ Table[FromDigits/@Tuples[{0, 1, 4, 6, 8}, n], {n, 5}]]], id2Q] (* Harvey P. Dale, Aug 19 2012 *)

Crossrefs

Sequence in context: A031073 A323151 A037004 * A109445 A316505 A293597

Adjacent sequences: A136858 A136859 A136860 * A136862 A136863 A136864

Keyword

base,nonn,changed

Author

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

Status

approved