A231990 First differences of Stanley sequence S(0,5) (A187843).

5, 1, 2, 1, 5, 1, 2, 10, 4, 1, 4, 2, 4, 1, 8, 14, 8, 1, 8, 7, 11, 1, 6, 2, 14, 29, 2, 11, 9, 3, 2, 11, 8, 13, 5, 4, 7, 6, 3, 24, 59, 9, 7, 1, 20, 5, 1, 8, 3, 33, 27, 11, 9, 12, 3, 2, 11, 9, 27, 4, 2, 5, 12, 1, 5, 16, 54, 80, 37, 15, 1, 6, 3, 33, 3, 17, 5, 9, 17, 1, 35, 32, 2, 72, 10, 3, 82, 6, 4, 6, 5, 2, 1, 5, 31, 14, 13

Offset

1,1

Comments

For known formulas of differences of other Stanley sequences see A093682.

Links

Ralf Stephan, Table of n, a(n) for n = 1..999

Prog

(PARI) NAP(sv, N)=local(v, vv, m, k, l, sl, vvl); sl=length(sv); vvl=min(N*N, 10^5); v=vector(N); vv=vector(vvl); for(k=1, sl, v[k]=sv[k]; for(l=1, k-1, vv[2*v[k]-v[l]]=1)); m=v[sl]+1; for(k=sl+1, N, while(m<=vvl&&vv[m], m=m+1); if(m>vvl, return(v)); for(l=1, k-1, sl=2*m-v[l]; if(sl<=vvl, vv[sl]=1)); vv[m]=1; v[k]=m); v
S05(n)=N=1000; NAP([0, 5], N)[n]
a(n)=S05(n+1)-S05(n)

Crossrefs

Cf. A236269.

Sequence in context: A097413 A202352 A115038 * A369915 A010131 A176323

Adjacent sequences: A231987 A231988 A231989 * A231991 A231992 A231993

Keyword

nonn

Author

Ralf Stephan, Jan 30 2014

Status

approved