OFFSET
1,1
COMMENTS
See A129470
EXAMPLE
a(1) = 883 = -1+2*13*17 is a prime of class 3+ since 13 is of class 2+, but the largest divisor of 883+1 is 17 which is only of class 1+.
PROG
(PARI) class(n, s=1)={n=factor(n+s)[, 1]; if(n[ #n]<=3, 1, for(i=2, #n, n[1]=max(class(n[i], s)+1, n[1])); n[1])}; A129471(n=100, p=1, a=[])={ local(f); while( #a<n, until( f[ #f] > 3 & 2 > class(f[ #f]), f=factor(1+p=nextprime(p+1))[, 1]); forstep( i=#f-1, 2, -1, if( 3 < f[1] = max( f[1], 1+class( f[i] )), next(2))); if( f[1] == 3, a=concat(a, p); /*print(#a, " ", p)*/)); a}
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
M. F. Hasler, Apr 17 2007
STATUS
approved