login
A082772
Integers n such that there exists at least one divisor d of n, 1 < d < n, such that d divides n and d+1 divides n+1.
3
8, 14, 15, 20, 24, 26, 27, 32, 35, 38, 39, 44, 48, 50, 51, 56, 62, 63, 64, 65, 68, 74, 75, 80, 84, 86, 87, 90, 92, 95, 98, 99, 104, 110, 111, 116, 119, 120, 122, 123, 124, 125, 128, 132, 134, 135, 140, 143, 144, 146, 147, 152, 155, 158, 159, 164, 168, 170, 171, 174
OFFSET
1,1
LINKS
EXAMPLE
24 is a term since 4 divides 24 and 5 divides 25.
MATHEMATICA
aQ[n_] := AnyTrue[Most @ Rest @ Divisors[n], Divisible[n+1, #+1] &]; Select[ Range[2, 200], aQ ] (* Amiram Eldar, Sep 18 2019 *)
PROG
(C++) for (int a = 1; a < 200; a++) for (int b = 2; b < a; b++) if ((a%b==0)&&((a+1)%(b+1)==0)) cout << a << ", "; // outputs a
(PARI) isok(n) = {fordiv(n, d, if ((d>1) && (d<n) && ! ((n+1) % (d+1)), return (1)); ); } \\ Michel Marcus, Sep 18 2019
CROSSREFS
Sequence in context: A178838 A219303 A376519 * A103338 A250004 A114456
KEYWORD
easy,nonn
AUTHOR
Anne M. Donovan (anned3005(AT)aol.com), May 21 2003
STATUS
approved