The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Apr 23 2019 16:31:29
%S 7,53,373,2617,18329,128311,898181,6287273,44010929,308076523,
%T 2156535743,15095750209,105670251529,739691760707,5177842324987,
%U 36244896274921,253714273924549,1775999917471859,12431999422303051
%N a(n) is smallest prime > 7*a(n-1), a(1) = 7.
%t NextPrim[n_Integer] := Block[ {k = n + 1}, While[ !PrimeQ[k], k++ ]; Return[k]]; a[1] = 7; a[n_] := NextPrim[ 7*a[n - 1]]; Table[ a[n], {n, 1, 20} ]
%t NestList[NextPrime[7#]&,7,20] (* _Harvey P. Dale_, Apr 23 2019 *)
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 28 2001