This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085453 #9 Oct 05 2013 02:25:52 %S A085453 2,3,8,9,24,69 %N A085453 Numbers n such that n^2 and n^3 together use only distinct digits. %C A085453 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. %e A085453 69 is (the last) term because 69^2=4761 and 69^3=328509 together use all 10 distinct digits. %t A085453 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] %Y A085453 Cf. A010784 A029743 A059930 A085451 %K A085453 fini,full,nonn,base %O A085453 1,1 %A A085453 _Zak Seidov_, Jul 01 2003