OFFSET
1,1
EXAMPLE
a(3)=17 because 2^3*17-1=136-1=135 has 5 as its largest prime factor.
MATHEMATICA
a[n_]:=Module[{k=2^n}, While[Max[First/@FactorInteger[k]]<=(m=Max[First/@FactorInteger[k-1]])||!PrimeQ[m], k+=2^n]; k/2^n]; Array[a, 30] (* Stefano Spezia, Apr 09 2026 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
J. Lowell, Apr 09 2026
EXTENSIONS
More terms from David A. Corneth, Apr 09 2026
STATUS
approved
