|
Search: id:A136808
|
|
|
| A136808 |
|
Numbers n such that n and the square of n use only the digits 0, 1 and 2. |
|
+0
1
|
|
| 0, 1, 10, 11, 100, 101, 110, 1000, 1001, 1010, 1011, 1100, 1101, 10000, 10001, 10010, 10011, 10100, 10110, 11000, 11001, 11010, 100000, 100001, 100010, 100011, 100100, 100101, 100110, 101000, 101001, 101100, 110000, 110001, 110010, 110100, 1000000, 1000001, 1000010, 1000011, 1000100, 1000101, 1000110, 1001000, 1001010, 1001100, 1010000
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Generated with DrScheme
Subsequence of A136809, A136816,..., A136836. - M. F. Hasler, Jan 24 2008
|
|
LINKS
|
Jonathan Wellons, Table of n, a(n) for n=1..1359
J. Wellons, Tables of Shared Digits
|
|
EXAMPLE
|
101000100100001^2 = 10201020220210222010200200001
|
|
MAPLE
|
isA136808 := proc(n) local ndgs, n2dgs ; ndgs := convert(convert(n, base, 10), set) ; n2dgs := convert(convert(n^2, base, 10), set) ; if ( (ndgs union n2dgs) minus {0, 1, 2} ) = {} then true ; else false ; fi ; end: LtonRev := proc(L) local i ; add(op(i, L)*10^(i-1), i=1..nops(L)) ; end: A007089 := proc(n) convert(n, base, 3) ; LtonRev(%) ; end: n := 1: for i from 0 do n3 := A007089(i) ; if isA136808(n3) then printf("%d %d ", n, n3) ; n := n+1 ; fi ; od: - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 24 2008
|
|
CROSSREFS
|
Sequence in context: A066334 A136829 A136832 this_sequence A136827 A136831 A136836
Adjacent sequences: A136805 A136806 A136807 this_sequence A136809 A136810 A136811
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
|
|
Search completed in 0.002 seconds
|
