A137041 Numbers k such that k and k^2 use only the digits 1, 3, 6, 8 and 9.

1, 3, 6, 9, 13, 19, 31, 63, 83, 369, 619, 631, 833, 836, 969, 3633, 8131, 31131, 36313, 81619, 81813, 81833, 93869, 93986, 96886, 98336, 116881, 191881, 336333, 816313, 818119, 818131, 818333, 836133, 916333, 968986, 969119, 1181813, 1366881, 1966313, 3161313, 3363981, 3631969, 3698896, 8183333, 9161833, 9968119, 9969119, 9996969, 13663333

Offset

1,2

Comments

Generated with DrScheme.

Links

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

J. Wellons, Tables of Shared Digits [archived]

Example

981681383196131^2 = 963698338113868991696813369161.

Mathematica

With[{d={1, 3, 6, 8, 9}}, Table[Select[FromDigits/@ Tuples[d, n], SubsetQ[ d, IntegerDigits[ #^2]]&], {n, 8}]]//Flatten (* Harvey P. Dale, Aug 15 2016 *)

Crossrefs

Sequence in context: A117469 A073359 A310161 * A153006 A181970 A316531

Adjacent sequences: A137038 A137039 A137040 * A137042 A137043 A137044

Keyword

base,nonn,changed

Author

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

Status

approved