A152082 Largest prime divisors of the terms of A152080.

11, 11, 29, 13, 23, 13, 11, 19, 37, 29, 71, 23, 23, 109, 47, 41, 5, 83, 17, 157, 19, 53, 37, 29, 167, 11, 53, 5, 13, 19, 5, 229, 103, 151, 263, 73, 23, 163, 43, 17, 167, 29, 19, 41, 83, 17, 191, 139, 89, 109, 149, 37, 43, 73, 53, 59, 5, 379, 383, 89, 233, 167

Offset: 1

Author

Vladimir Shevelev, Nov 23 2008

Keywords

• nonn

Crossrefs

Cf. A000695, A152021, A152022, A152023, A152078, A152080.

Programs

Mathematica

f[n_] := FromDigits[IntegerDigits[n, 2], 4]; pmax[n_] := FactorInteger[n][[-1, 1]]; pmax /@ Select[Range[1300], CompositeQ[#] && PrimeQ[f[#]] &] (* Amiram Eldar, Aug 31 2019 *)

Extensions

More terms from Amiram Eldar, Aug 31 2019