A107626 -id:A107626 - cp's OEIS frontend

A107627 Numbers n such that every digit of n and sqrt(n) contains a loop (only digits 0,4,6,8,9 in n and sqrt(n)).

64, 4096, 6400, 9604, 409600, 440896, 640000, 806404, 960400, 996004, 40960000, 44089600, 44408896, 64000000, 80640400, 80964004, 96040000, 99600400, 99960004

Offset: 1

Zak Seidov, May 18 2005

Corresponding square roots in A107626. Cf. A001744 Every digit contains a loop.

Harvey P. Dale, Table of n, a(n) for n = 1..100

Cf. A001744, A107624, A107625, A107626.

Do[id=Union[IntegerDigits[n^2], IntegerDigits[n]];If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[n^2]], {n, 10000}]
With[{c={0,4,6,8,9}},#^2&/@Select[FromDigits/@Tuples[c,4],SubsetQ[c,IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Oct 01 2023 *)

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

Original entry on oeis.org

0, 8, 64, 80, 98, 640, 664, 800, 898, 980, 998, 6400, 6640, 6664, 8000, 8980, 8998, 9800, 9980, 9998, 64000, 66400, 66640, 66664, 80000, 89800, 89980, 89998, 98000, 98998, 99800, 99980, 99998, 640000, 664000, 664064, 666400, 666640, 666664, 684908, 800000, 806008, 896886, 898000, 899800, 899980, 899998, 980000, 989980, 989998, 990408, 998000

Offset: 1

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

Generated with DrScheme.

			984686089068008^2 = 969606694004048984086049088064.

Jonathan Wellons, Table of n, a(n) for n = 1..1208
J. Wellons, Tables of Shared Digits [archived]

Essentially the same as A107626. - R. J. Mathar, Feb 28 2009

With[{c={0,4,6,8,9}},Select[FromDigits/@Tuples[c,6],SubsetQ[ c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Feb 04 2015 *)

cp's OEIS Frontend

A107627 Numbers n such that every digit of n and sqrt(n) contains a loop (only digits 0,4,6,8,9 in n and sqrt(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica