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.

Showing 1-2 of 2 results.

A332179 a(n) = 7*(10^(2n+1)-1)/9 + 2*10^n.

Original entry on oeis.org

9, 797, 77977, 7779777, 777797777, 77777977777, 7777779777777, 777777797777777, 77777777977777777, 7777777779777777777, 777777777797777777777, 77777777777977777777777, 7777777777779777777777777, 777777777777797777777777777, 77777777777777977777777777777, 7777777777777779777777777777777
Offset: 0

Views

Author

M. F. Hasler, Feb 08 2020

Keywords

Comments

See A183183 = {1, 2, 8, 19, 20, 212, 280, ...} for the indices of primes.

Crossrefs

Cf. A138148 (cyclops numbers with binary digits only).
Cf. (A077796-1)/2 = A183183: indices of primes.
Cf. A002275 (repunits R_n = [10^n/9]), A002281 (7*R_n), A011557 (10^n).
Cf. A332171 .. A332178 (variants with different middle digit 1, ..., 8).

Programs

  • Maple
    A332179 := n -> 7*(10^(n*2+1)-1)/9 + 2*10^n;
  • Mathematica
    Array[7 (10^(2 # + 1) - 1)/9 + 2*10^# &, 15, 0]
  • PARI
    apply( {A332179(n)=10^(n*2+1)\9*7+2*10^n}, [0..15])
    
  • Python
    def A332179(n): return 10**(n*2+1)//9*7+2*10^n

Formula

a(n) = 7*A138148(n) + 9*10^n.
G.f.: (9 - 202*x - 500*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.

A077796 Numbers k such that 7*(10^k - 1)/9 + 2*10^floor(k/2) is a palindromic wing prime (a.k.a. near-repdigit palindromic prime).

Original entry on oeis.org

3, 5, 17, 39, 41, 425, 561, 1775, 2043, 11031, 16233, 23705
Offset: 1

Views

Author

Patrick De Geest, Nov 16 2002

Keywords

Comments

Prime versus probable prime status and proofs are given in the author's table.
a(13) > 2*10^5. - Robert Price, Jan 19 2016

Examples

			17 is a term because 7*(10^17 - 1)/9 + 2*10^8 = 77777777977777777.
		

References

  • C. Caldwell and H. Dubner, "Journal of Recreational Mathematics", Volume 28, No. 1, 1996-97, pp. 1-9.

Crossrefs

Programs

  • Mathematica
    Do[ If[ PrimeQ[(7*10^n + 18*10^Floor[n/2] - 7)/9], Print[n]], {n, 3, 23800, 2}] (* Robert G. Wilson v, Dec 16 2005 *)

Formula

a(n) = 2*A183183(n) + 1.

Extensions

Name corrected by Jon E. Schoenfield, Oct 31 2018
Showing 1-2 of 2 results.