|
|
A007961
|
|
n written in base where place values are positive squares.
|
|
9
|
|
|
1, 2, 3, 10, 11, 12, 13, 20, 100, 101, 102, 103, 110, 111, 112, 1000, 1001, 1002, 1003, 1010, 1011, 1012, 1013, 1020, 10000, 10001, 10002, 10003, 10010, 10011, 10012, 10013, 10020, 10100, 10101, 100000, 100001, 100002, 100003, 100010, 100011
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
local k, nrem, L, b, d;
k := floor(sqrt(n)) ;
nrem := n ;
L := [] ;
for b from k to 1 by -1 do
d := floor(nrem/b^2) ;
L := [d, op(L)] ;
nrem := nrem -d*b^2 ;
end do:
add( op(i, L)*10^(i-1), i=1..nops(L)) ;
|
|
PROG
|
(Haskell)
import Data.Char (intToDigit)
a007961 :: Integer -> Integer
a007961 n = read $ map intToDigit $
t n $ reverse $ takeWhile (<= n) $ tail a000290_list where
t _ [] = []
t m (x:xs)
| x > m = 0 : t m xs
| otherwise = (fromInteger m') : t r xs
where (m', r) = divMod m x
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
R. Muller
|
|
STATUS
|
approved
|
|
|
|