A257310 Numbers n such that the decimal expansions of both n and n^2 have 2 as smallest digit and 5 as largest digit.
235, 2335, 23335, 233335, 2333335, 2354235, 23333335, 233333335, 2333333335, 2333524235, 23333333335, 23333524235, 233333333335, 2333333333335, 23333333333335, 233333333333335, 2333333333333335, 23333333333333335, 233333333333333335, 2333333333333333335
Offset: 1
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..40 (n = 1..31 from Hiroaki Yamanouchi)
Crossrefs
Programs
-
Mathematica
fQ[n_] := Block[{d = DigitCount@ n}, Plus @@ Prepend[Take[d, {6, 10}], First@ d] == 0 && d[[2]] > 0 && d[[5]] > 0]; Select[Range@ 1000000, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, Apr 20 2015 *)
-
PARI
is(n) = vecmin(digits(n))==2 && vecmin(digits(n^2))==2 && vecmax(digits(n))==5 && vecmax(digits(n^2))==5
Extensions
a(11)-a(20) from Hiroaki Yamanouchi, May 04 2015
Comments