A076150 Start of 10 consecutive composite numbers.

114, 115, 116, 117, 200, 201, 212, 213, 294, 295, 296, 297, 318, 319, 320, 321, 468, 469, 510, 511, 524, 525, 526, 527, 528, 529, 530, 531, 620, 621, 662, 663, 774, 775, 776, 777, 798, 799, 840, 841, 842, 843, 864, 865, 866, 867, 888, 889, 890, 891, 892

Offset

1,1

Comments

Also, the numbers which do not appear in sequence A267299 starting with 1 and such that a(n+1) is the least positive integer not occurring earlier which yields a prime when added to the last digit of a(n), cf. link to SeqFan post. - M. F. Hasler, Jan 20 2016

Links

Alois P. Heinz, Table of n, a(n) for n = 1..20000

E. Angelini, J. Mason and M. F. Hasler, A light variation, SeqFan list, Jan. 20, 2016

Example

531 is in the sequence because it is the first term of the ten consecutive composites: 531=3^2*59; 532=2^2*7*19; 533=13*41; 534=2*3*89; 535=5*107; 536=2^3*67; 537=3*179; 538=2*269; 539=7^2*11; 540=2^2*3^3*5.

Mathematica

Select[ Range[900], Union[ Table[ PrimeQ[i], {i, #, # + 9}]] == {False} &]
nn=1000; Transpose[Select[Partition[Complement[Range[nn], Prime[Range[ PrimePi[ nn]]]], 10, 1], Last[#]-First[#]==9&]][[1]] (* Harvey P. Dale, Jun 15 2011 *)

Prog

(PARI) is_A076150(n)=nextprime(n)>n+9 \\ M. F. Hasler, Jan 20 2016

Crossrefs

Cf. A007530, A076192.

Sequence in context: A106748 A220983 A122503 * A294309 A138693 A272303

Adjacent sequences: A076147 A076148 A076149 * A076151 A076152 A076153

Keyword

nonn,changed

Author

Lekraj Beedassy, Oct 31 2002

Extensions

Corrected and extended by Ralf Stephan and others, Nov 01 2002

Status

approved