A175965 Lexicographically earliest sequence with first differences as increasing sequence of noncomposites A008578.

1, 2, 4, 7, 12, 19, 30, 43, 60, 79, 102, 131, 162, 199, 240, 283, 330, 383, 442, 503, 570, 641, 714, 793, 876, 965, 1062, 1163, 1266, 1373, 1482, 1595, 1722, 1853, 1990, 2129, 2278, 2429, 2586, 2749, 2916, 3089, 3268, 3449, 3640, 3833, 4030, 4229, 4440, 4663

Offset: 1

Author

Jaroslav Krizek, Oct 31 2010

Keywords

• nonn

Comments

Complement of A175966.

A175944(a(n)) = A018252(n). - Reinhard Zumkeller, Mar 18 2011

Links

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

Crossrefs

Cf. A008578, A014284, A018252, A036439, A051349.

Cf. A175944, A175966, A175967, A175968, A175969, A175970.

Programs

Haskell

a175965 n = a175965_list !! n
a175965_list = scanl (+) 1 a008578_list
-- Reinhard Zumkeller, Mar 26 2015

Mathematica

FoldList[Plus,1,Join[{1},Prime[Range[50]]]] (* or *) Accumulate[ Join[ {1,1},Prime[Range[50]]]] (* Harvey P. Dale, Sep 28 2016 *)

Formula

a(n) = A036439(n-1) for n > 1.

a(n) - a(n-1) = A008578(n-1) for n > 1.

a(n) = A014284(n-1) + 1 for n > 1.