Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

1,1

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

a(1) = a(2) = 4. For n >= 3, a(n) = A014683(n).

Table[k = n; While[! CompositeQ@ k, k++]; k, {n, 72}] (* Michael De Vlieger, Sep 06 2017 *)

(Haskell)

a113646 n = if n < 3 then 4 else a014683 n

-- Reinhard Zumkeller, Nov 01 2014

Cf. A002808, A014683.

Sequence in context: A139324 A111655 A175961 * A106325 A159835 A240835

Adjacent sequences: A113643 A113644 A113645 * A113647 A113648 A113649

nonn

Leroy Quet, Jan 15 2006

approved