login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178918 Smallest of two consecutive integers divisible respectively by two consecutive squares greater than 1. 2
8, 44, 63, 80, 116, 152, 188, 207, 224, 260, 296, 332, 351, 368, 404, 440, 476, 495, 512, 548, 575, 584, 620, 624, 639, 656, 692, 728, 764, 783, 800, 836, 872, 908, 927, 944, 980, 1016, 1024, 1052, 1071, 1088, 1124, 1160, 1196, 1215, 1224, 1232 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

EXAMPLE

1791 is a term as 1791 and 1792 are divisible by 9 and 16 respectively.

MAPLE

with(numtheory):for n from 1 to 2000 do: k:=0:q:=floor(sqrt(n)):for m from

2 to q do: p1:=m^2:p2:=(m+1)^2:if irem(n, p1)=0 and irem(n+1, p2)=0 and k=0 then

k:=1:printf(`%d, `, n):else fi:od:od:

MATHEMATICA

f[p_, e_] := p^Floor[e/2]; maxsq[n_] := Times@@ (f @@@ FactorInteger[n]); aQ[n_] := (s = maxsq[n]) > 1 && AnyTrue[Rest @ Divisors[s], Divisible[n+1, (#+1)^2] &]; Select[Range[1232], aQ] (* Amiram Eldar, Sep 09 2019 *)

PROG

(Sage) is_A178918 = lambda n: any(all(((k+x)**2).divides(n+x) for x in range(2)) for k in divisors(n) if k > 1) # D. S. McNeil, Dec 29 2010

CROSSREFS

Cf. A178919.

Sequence in context: A210125 A044110 A044491 * A357896 A078895 A046341

Adjacent sequences: A178915 A178916 A178917 * A178919 A178920 A178921

KEYWORD

nonn

AUTHOR

Michel Lagneau, Dec 29 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 2 17:02 EST 2023. Contains 360023 sequences. (Running on oeis4.)