|
|
A156324
|
|
a(1)=0, a(n+1) is smallest nonprime >= a(n)+n.
|
|
1
|
|
|
0, 1, 4, 8, 12, 18, 24, 32, 40, 49, 60, 72, 84, 98, 112, 128, 144, 161, 180, 200, 220, 242, 264, 287, 312, 338, 364, 391, 420, 450, 480, 511, 543, 576, 610, 645, 681, 718, 756, 795, 835, 876, 918, 961, 1005, 1050, 1096, 1143, 1191, 1240, 1290, 1341, 1393, 1446
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(4) is the smallest nonprime >= a(3) + 3 = 4 + 3 = 7, hence a(4)=8.
|
|
MAPLE
|
A141468 := proc(n) option remember ; local a ; if n = 1 then 0 ; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a) ; fi; od: fi; end: A156324 := proc(n) option remember ; local a; if n = 1 then 0; else for a from procname(n-1)+n-1 do if not isprime(a) then RETURN(a) ; fi; od: fi; end: seq(A156324(n), n=1..80) ; # R. J. Mathar, Feb 10 2009
|
|
MATHEMATICA
|
nxt[{n_, a_}]:=Module[{k=0, c=a+n+1}, While[PrimeQ[c+k], k++]; {n+1, c+k}]; Transpose[NestList[nxt, {0, 0}, 60]][[2]] (* Harvey P. Dale, Dec 29 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Terms beginning at a(31) corrected by R. J. Mathar, Feb 10 2009
|
|
STATUS
|
approved
|
|
|
|