%I #26 Sep 28 2016 08:04:49
%S 1,2,4,7,12,19,30,43,60,79,102,131,162,199,240,283,330,383,442,503,
%T 570,641,714,793,876,965,1062,1163,1266,1373,1482,1595,1722,1853,1990,
%U 2129,2278,2429,2586,2749,2916,3089,3268,3449,3640,3833,4030,4229,4440,4663
%N Lexicographically earliest sequence with first differences as increasing sequence of noncomposites A008578.
%C Complement of A175966.
%C A175944(a(n)) = A018252(n). - _Reinhard Zumkeller_, Mar 18 2011
%H Reinhard Zumkeller, <a href="/A175965/b175965.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A036439(n-1) for n > 1.
%F a(n) - a(n-1) = A008578(n-1) for n > 1.
%F a(n) = A014284(n-1) + 1 for n > 1.
%t FoldList[Plus,1,Join[{1},Prime[Range[50]]]] (* or *) Accumulate[ Join[ {1,1},Prime[Range[50]]]] (* _Harvey P. Dale_, Sep 28 2016 *)
%o (Haskell)
%o a175965 n = a175965_list !! n
%o a175965_list = scanl (+) 1 a008578_list
%o -- _Reinhard Zumkeller_, Mar 26 2015
%Y Cf. A008578, A014284, A018252, A036439, A051349.
%Y Cf. A175944, A175966, A175967, A175968, A175969, A175970.
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Oct 31 2010