A256633 Numbers n such that the decimal expansions of both n and n^2 have 0 as smallest digit and 6 as largest digit.

60, 160, 460, 506, 560, 600, 601, 602, 605, 660, 1006, 1016, 1060, 1160, 1460, 1560, 1600, 1601, 1602, 1620, 2006, 2016, 2060, 2160, 2460, 2560, 3606, 4506, 4600, 4605, 4650, 5006, 5016, 5060, 5160, 5506, 5600, 5605, 5660, 6000, 6001, 6002, 6005, 6010, 6020

Offset

1,1

Links

Felix Fröhlich, Table of n, a(n) for n = 1..10000

Mathematica

fQ[n_] := Block[{c = DigitCount@ n}, And[Plus @@ Take[c, {7, 9}] == 0, c[[6]] > 0, c[[10]] > 0]]; Select[Range@ 6400, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, Apr 12 2015 *)

Prog

(PARI) is(n) = vecmin(digits(n))==0 && vecmin(digits(n^2))==0 && vecmax(digits(n))==6 && vecmax(digits(n^2))==6

Crossrefs

Cf. A256630, A256631, A256634, A256708, A256709, A256889, A257085.

Sequence in context: A252018 A044392 A044773 * A329521 A118671 A109379

Adjacent sequences: A256630 A256631 A256632 * A256634 A256635 A256636

Keyword

nonn,base

Author

Felix Fröhlich, Apr 05 2015

Status

approved