login
A099667
a(n) is the largest prime before A002281(n); repdigits repeating 7.
2
5, 73, 773, 7759, 77773, 777769, 7777769, 77777761, 777777773, 7777777741, 77777777767, 777777777773, 7777777777771, 77777777777753, 777777777777773, 7777777777777753, 77777777777777747, 777777777777777743
OFFSET
1,1
LINKS
EXAMPLE
n=2: 73 is before 77.
MATHEMATICA
Table[NextPrime[7 (10^n - 1)/9, -1], {n, 35}]
(* Second program: *)
Rest[NextPrime[#, -1]&/@LinearRecurrence[{11, -10}, {0, 7}, 25]] (* Harvey P. Dale, May 24 2015 *)
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Nov 17 2004
EXTENSIONS
Name changed by David A. Corneth, Sep 01 2017
STATUS
approved