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