A181965 - OEIS

A181965

a(n) = 10^(2n+1) - 10^n - 1.

8, 989, 99899, 9998999, 999989999, 99999899999, 9999998999999, 999999989999999, 99999999899999999, 9999999998999999999, 999999999989999999999, 99999999999899999999999, 9999999999998999999999999, 999999999999989999999999999, 99999999999999899999999999999, 9999999999999998999999999999999

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

COMMENTS

n 9's followed by an 8 followed by n 9's.

See A183187 = {26, 378, 1246, 1798, 2917, ...} for the indices of primes.

LINKS

Table of n, a(n) for n=0..15.

Patrick De Geest, Palindromic Wing Primes: (9)8(9), updated: June 25, 2017.

Makoto Kamada, Factorization of 99...99899...99, updated Dec 11 2018.

Markus Tervooren, Factorizations of (9)w8(9)w, FactorDB.com

Index entries for linear recurrences with constant coefficients, signature (111,-1110,1000).

FORMULA

From M. F. Hasler, Feb 08 2020: (Start)

a(n) = 9*A138148(n) + 8*10^n = A002283(2n+1) - A011557(10^n).

G.f.: (8 + 101*x - 1000*x^2)/((1 - x)(1 - 10*x)(1 - 100*x)).

a(n) = 111*a(n-1) - 1110*a(n-2) + 1000*a(n-3) for n > 2. (End)

MAPLE

A181965 := n -> 10^(2*n+1)-1-10^n; # M. F. Hasler, Feb 08 2020

MATHEMATICA

Array[10^(2 # + 1) - 1- 10^# &, 15, 0] (* M. F. Hasler, Feb 08 2020 *)

Table[With[{c=PadRight[{}, n, 9]}, FromDigits[Join[c, {8}, c]]], {n, 0, 20}] (* Harvey P. Dale, Jun 07 2021 *)

PROG

(PARI) apply( {A181965(n)=10^(n*2+1)-1-10^n}, [0..15]) \\ M. F. Hasler, Feb 08 2020

(Python) def A181965(n): return 10**(n*2+1)-1-10^n # M. F. Hasler, Feb 08 2020

CROSSREFS

Cf. (A077794-1)/2 = A183187 (indices of primes).

Cf. A002275 (repunits R_n = (10^n-1)/9), A002283 (9*R_n), A011557 (10^n).

Cf. A138148 (cyclops numbers with binary digits only), A002113 (palindromes).

Cf. A332190 .. A332197 (variants with different middle digit 0, ..., 7).

Sequence in context: A300611 A301353 A183888 * A159868 A061105 A118545

Adjacent sequences: A181962 A181963 A181964 * A181966 A181967 A181968

KEYWORD

easy,nonn,base

AUTHOR

Ivan Panchenko, Apr 04 2012

EXTENSIONS

Edited and extended to a(0) = 8 by M. F. Hasler, Feb 10 2020

STATUS

approved