OFFSET
1,1
COMMENTS
Contains arbitrarily long strings of consecutive integers. Here are the shortest ones arranged by increasing numbers of terms:
{3}
{14,15}
{49,50,51}
{152,153,154,155}
{10217,10218,10219,10220,10221}
{634842, 634843, 634844, 634845, 634846, 634847}
{123945, 123946, 123947, 123948, 123949, 123950, 123951}
{2852055, 2852056, 2852057, 2852058, 2852059, 2852060, 2852061, 2852062}
{49057063, 49057064, 49057065, 49057066, 49057067, 49057068, 49057069, 49057070, 49057071}, etc.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..5000
EXAMPLE
152 is divisible by 19 and 153 by 17;
153 is divisible by 3 and 154 by 2;
154 is divisible by 7 and 155 by 5;
155 is divisible by 5 and 156 by 3.
MAPLE
with(numtheory): P:=proc(n) local a, k;
a:=factorset(n) minus {2};
for k from 1 to nops(a) do if frac((n+1)/prevprime(a[k]))=0
then RETURN(n); fi; od; end: seq(P(i), i=2..300);
MATHEMATICA
Select[Range[210], Function[k, AnyTrue[DeleteCases[NextPrime[ FactorInteger[k][[All, 1]], -1 ], p_ /; p < 0], Mod[k + 1, #] == 0 &]]] (* Michael De Vlieger, Oct 31 2018 *)
PROG
(PARI) is(n) = my(f = factor(n>>valuation(n, 2))[, 1]); n++; for(i = 1, #f~, if(n % precprime(f[i]-1) == 0, return(1))); 0 \\ David A. Corneth, Oct 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Oct 26 2018
STATUS
approved