OFFSET

2,2

LINKS

Amiram Eldar, Table of n, a(n) for n = 2..10001

Rafael Jakimczuk, Generalizations of Mertens's Formula and k-Free and s-Full Numbers with Prime Divisors in Arithmetic Progression, ResearchGate, 2024.

FORMULA

MATHEMATICA

FactorInteger[#][[-1, 1]] & /@ Select[Range[200], SquaresR[2, #] > 0 &]

PROG

(PARI) lista(kmax) = {my(f, is); print1(1, ", "); for(k = 2, kmax, f = factor(k); is = 1; for(i=1, #f~, if(f[i, 2]%2 && f[i, 1]%4 == 3, is = 0; break)); if(is, print1(f[#f~, 1], ", "))); }

CROSSREFS

KEYWORD

nonn,easy

AUTHOR

Amiram Eldar, Mar 08 2024

STATUS

approved