OFFSET
0,2
COMMENTS
There is a remarkable and unexplained agreement: if 5 is dropped from the list, 2, 673, 1993 and 239233 are replaced by 1, 1021, 29173 and 532801, the result is sequence A005113 (least prime of class n+, according to the Erdős-Selfridge classification of primes).
REFERENCES
Peter Giblin, "Primes and Programming - an Introduction to Number Theory with Computation", page 118.
R. K. Guy, "Unsolved Problems in Number Theory", section B41.
MATHEMATICA
psi[m_] := ({pp, ee} = FactorInteger[m] // Transpose; If[Max[pp] == 3, m, Times @@ (pp+1)*Times @@ (pp^(ee-1))]); a[0] = 1; a[1] = 5; a[n_] := a[n] = For[k = a[n - 1] (* assuming monotony *), True, k++, If[Length @ FixedPointList[psi, k] == n+2, Return[k]]]; Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 0, 10}] (* Jean-François Alcover, Feb 19 2018 *)
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a019268 = (+ 1) . fromJust . (`elemIndex` a019269_list)
-- Reinhard Zumkeller, Apr 12 2012
CROSSREFS
KEYWORD
nonn,nice,more
AUTHOR
EXTENSIONS
More terms from Jud McCranie, Jan 15 1997
Initial element corrected by Reinhard Zumkeller, Apr 12 2012
STATUS
approved