OFFSET
1,1
COMMENTS
Conjecture: if c is the first term in A386482 that is divisible by a prime p > 2, then c = 2*p.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..65536 (first 841 terms from N. J. A. Sloane.)
EXAMPLE
MATHEMATICA
Block[{p, s}, p[_] := 0; s = Import["https://oeis.org/A386482/b386482.txt", "Data"][[All, -1]]; Rest@ Reap[Do[Map[If[p[#] == 0, Set[p[#], n]; Sow[#]] &, FactorInteger[s[[n]] ][[;; , 1]]], {n, Length[s]}] ][[-1, 1]] ] (* Michael De Vlieger, Sep 03 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 03 2025
STATUS
approved
