%I #21 Mar 11 2020 03:22:29
%S 100,121,144,169,195,225,270,341,441,1013,1400,3201,22100,11100001
%N 225 written in base 15-n.
%C Interesting because the beginning is so close to a sequence of perfect squares to base ten. Only 195 is different; it would be 196 in a sequence of perfect squares.
%e a(0) = 100 because we can write 225 = 100 (base 15).
%p seq((l-> parse(cat(seq(l[-i], i=1..nops(l)))))(convert(
%p 225, base, 15-n)), n=0..13); # _Alois P. Heinz_, Mar 10 2020
%t Array[FromDigits@ IntegerDigits[225, 15 - #] &, 14, 0] (* _Michael De Vlieger_, Mar 10 2020 *)
%o (PARI) a(n) = fromdigits(digits(225, 15-n));
%o vector(14, n, a(n-1)) \\ _Michel Marcus_, Mar 11 2020
%K base,fini,full,nonn
%O 0,1
%A Philip R. Turner (Phil.Turner(AT)cern.ch), Jun 17 2002
%E a(13) corrected by _Alois P. Heinz_, Mar 10 2020
|