A137104 Numbers k such that k and k^2 use only the digits 2, 4, 6, 8 and 9.

2, 8, 22, 68, 92, 222, 262, 264, 288, 668, 964, 6668, 6962, 9288, 9842, 26262, 49462, 49692, 49842, 66668, 69462, 82864, 99462, 99842, 494262, 494462, 499462, 649842, 666668, 684462, 984288, 999462, 4944662, 4946662, 4989886, 4994622, 4994662, 4996886, 4996962, 4998268, 6666668, 6994462, 6999462, 8284262, 9469262, 9994622, 29482622, 49294288

Offset

1,1

Comments

Generated with DrScheme.

Links

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

J. Wellons, Tables of Shared Digits [archived]

Example

984829269296292^2 = 969888689662668428628884949264.

Mathematica

  With[{c={2, 4, 6, 8, 9}}, Flatten[Table[Select[FromDigits/@Tuples[ c, n], SubsetQ[ c, IntegerDigits[ #^2]]&], {n, 8}]]] (* The program uses the SubsetQ function from Mathematica version 10 *) (* Harvey P. Dale, Nov 15 2014 *)

Crossrefs

Sequence in context: A261561 A017928 A102880 * A265951 A178159 A262720

Adjacent sequences: A137101 A137102 A137103 * A137105 A137106 A137107

Keyword

base,nonn,changed

Author

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

Status

approved