A254074 Numbers k such that the decimal expansions of both k and k^2 have 5 as the digit with the smallest value and 9 as the digit with the largest value.
759576, 97759786, 97957576, 887579686, 987759576, 987859786, 7599859786, 7679576587, 8756697886, 8766958976, 9775989867, 9897756766, 9978965766, 76797588887, 88766997576, 97978858887, 99777685676, 99789658666, 99879856766, 767897685676, 869866586666
Offset: 1
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..1224 (n = 1..326 from Hiroaki Yamanouchi).
Crossrefs
Programs
-
Mathematica
fQ[n_] := Block[{c = DigitCount@ n}, And[Plus @@ Take[c, {1, 4}] == 0, Last@ c == 0, c[[5]] > 0, c[[9]] > 0]]; Select[Range@ 10000000, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, May 05 2015 *)
-
PARI
is(n) = vecmin(digits(n))==5 && vecmin(digits(n^2))==5 && vecmax(digits(n))==9 && vecmax(digits(n^2))==9
Extensions
a(14)-a(21) from Hiroaki Yamanouchi, May 07 2015
Comments