cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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.

This page as a plain text file.
%I A082772 #13 Sep 18 2019 12:00:20
%S A082772 8,14,15,20,24,26,27,32,35,38,39,44,48,50,51,56,62,63,64,65,68,74,75,
%T A082772 80,84,86,87,90,92,95,98,99,104,110,111,116,119,120,122,123,124,125,
%U A082772 128,132,134,135,140,143,144,146,147,152,155,158,159,164,168,170,171,174
%N 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.
%H A082772 Amiram Eldar, <a href="/A082772/b082772.txt">Table of n, a(n) for n = 1..10000</a>
%e A082772 24 is a term since 4 divides 24 and 5 divides 25.
%t A082772 aQ[n_] := AnyTrue[Most @ Rest @ Divisors[n], Divisible[n+1, #+1] &]; Select[ Range[2, 200], aQ ] (* _Amiram Eldar_, Sep 18 2019 *)
%o A082772 (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
%o A082772 (PARI) isok(n) = {fordiv(n, d, if ((d>1) && (d<n) && ! ((n+1) % (d+1)), return (1)););} \\ _Michel Marcus_, Sep 18 2019
%K A082772 easy,nonn
%O A082772 1,1
%A A082772 Anne M. Donovan (anned3005(AT)aol.com), May 21 2003