|
%I #17 Jan 02 2023 12:30:46
%S 114,115,116,117,200,201,212,213,294,295,296,297,318,319,320,321,468,
%T 469,510,511,524,525,526,527,528,529,530,531,620,621,662,663,774,775,
%U 776,777,798,799,840,841,842,843,864,865,866,867,888,889,890,891,892
%N Start of 10 consecutive composite numbers.
%C 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
%H Alois P. Heinz, <a href="/A076150/b076150.txt">Table of n, a(n) for n = 1..20000</a>
%H E. Angelini, J. Mason and M. F. Hasler, <a href="http://list.seqfan.eu/oldermail/seqfan/2016-January/015968.html">A light variation</a>, SeqFan list, Jan. 20, 2016
%e 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.
%t Select[ Range[900], Union[ Table[ PrimeQ[i], {i, #, # + 9}]] == {False} &]
%t nn=1000;Transpose[Select[Partition[Complement[Range[nn], Prime[Range[ PrimePi[ nn]]]],10,1],Last[#]-First[#]==9&]][[1]] (* _Harvey P. Dale_, Jun 15 2011 *)
%o (PARI) is_A076150(n)=nextprime(n)>n+9 \\ _M. F. Hasler_, Jan 20 2016
%Y Cf. A007530, A076192.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Oct 31 2002
%E Corrected and extended by _Ralf Stephan_ and others, Nov 01 2002
|
