cp's OEIS Frontend

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.

A083449 a(n) = A019566(n)/9, where A019566(n) = concat(n,...,1) - concat(1,...,n).

This page as a plain text file.
%I A083449 #24 Nov 22 2020 21:15:42
%S A083449 0,1,22,343,4664,58985,713306,8367627,96021948,-150891621,
%T A083449 -13731137410,-260644605199,86159119727012,19839246664059223,
%U A083449 3106259112208391434,422859356777752723645,53509280234443297055856,6473262479112108841388067,759559693477989774385720278
%N A083449 a(n) = A019566(n)/9, where A019566(n) = concat(n,...,1) - concat(1,...,n).
%C A083449 Are there any palindromes > 58985?
%C A083449 This sequence also gives the number of occurrences of any digit d > n (thus n < 9) in the list of all numbers from 1 to concatenation(1,...,n) = A007908(n) = A014824(n) = sum_{i=1..n} i*10^(n-i). See A277849, A061217, A277830 etc. - _M. F. Hasler_, Nov 01 2016, edited Nov 07 2020
%F A083449 For n < 10, a(n) = ceiling((9*n-11)*(10^n+1)/729). - _M. F. Hasler_, Nov 07 2020
%p A083449 a:= n-> (parse(cat((n+1-i)$i=1..n))-parse(cat($1..n)))/9:
%p A083449 seq(a(n), n=1..20);  # _Alois P. Heinz_, Nov 09 2020
%t A083449 Array[(FromDigits@ Apply[Join, Reverse@ #] - FromDigits@ Apply[Join, #])/9 &@ Map[IntegerDigits, Range[#]] &, 19] (* _Michael De Vlieger_, Nov 12 2020 *)
%o A083449 (PARI) apply( {A083449(n)=A019566(n)\9}, [1..20]) \\ - _M. F. Hasler_, Nov 07 2020
%Y A083449 Cf. A061217.
%K A083449 base,easy,sign
%O A083449 1,3
%A A083449 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 01 2003
%E A083449 More terms from _David Wasserman_, Nov 09 2004