A085453 Numbers n such that n^2 and n^3 together use only distinct digits.

2, 3, 8, 9, 24, 69

Offset

1,1

Comments

There are only six such numbers (in base 10). Numbers with distinct digits in A010784. Primes with distinct digits in A029743. The case n and n^2 (exactly 22 numbers) in A059930. The case n and prime[n] (exactly 101 numbers) in A085451.

Links

Table of n, a(n) for n=1..6.

Example

69 is (the last) term because 69^2=4761 and 69^3=328509 together use all 10 distinct digits.

Mathematica

bb = {}; Do[idpn = IntegerDigits[n^3]; idn = IntegerDigits[n^2]; If[Length[idn] + Length[idpn] == Length[Union[idn, idpn]], bb = {bb, n}], {n, 1, 10000}]; Flatten[bb]

Crossrefs

Cf. A010784 A029743 A059930 A085451

Sequence in context: A098506 A279090 A163168 * A271394 A030439 A119386

Adjacent sequences: A085450 A085451 A085452 * A085454 A085455 A085456

Keyword

fini,full,nonn,base

Author

Zak Seidov, Jul 01 2003

Status

approved