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

%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