OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is Sum_{p prime, p == 1 (mod 6)} ((p-1)/(Product_{q prime, q <= p} q)) = 0.02897288485... . - Amiram Eldar, Dec 04 2022
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local p;
p:= 3;
do
p:= nextprime(p);
if n mod p <> 0 then return (p mod 6 = 1) fi
od
end proc:
select(filter, [seq(i, i=6..10000, 6)]); # Robert Israel, Dec 04 2023
MATHEMATICA
f[n_] := Module[{p = 2}, While[Divisible[n, p], p = NextPrime[p]]; p]; Select[Range[2000], Mod[f[#], 6] == 1 &] (* Amiram Eldar, Dec 04 2022 *)
PROG
(PARI) isA358756(n) = A358754(n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 03 2022
STATUS
approved