OFFSET
1,1
COMMENTS
See A129470
EXAMPLE
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])}; a129477(n=100, p=1, a=[])={local(f, a5=A005113[5]); p=max(p, a5*nextprime(a5+1)*2-1); while( #a<n, until( #f>2 & f[ #f-1] >= a5 & 5 > class(f[ #f]), f=factor(1+p=nextprime(p+1))[, 1]); forstep( i=#f-1, 2, -1, if( 6 < f[1] = max( f[1], 1+class( f[i] )), next(2))); if( f[1] == 6, a=concat(a, p); print(#a, " ", p))); a}
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
M. F. Hasler, Apr 17 2007
STATUS
approved