A353203 Let b be a composite number, c be the smallest composite number greater than b and coprime to b, and d = c-b. This sequence contains all b such that d is neither a prime nor a square.
67613590, 72808450, 125918320, 153469030, 190281850, 229119880, 328315900, 339204910, 360203140, 395961280, 447304000, 450075340, 692309530, 844334920, 861327610, 909001390, 1029358330, 1166831380, 1178236510, 1321005400, 1344348610, 1366379080, 2035500610, 2045710810, 2156564410
Offset: 1
Keywords
Examples
If b = 6, then c = 25 and d = c-b = 19 (prime), so 6 is not in the sequence. If b = 67613590, then c = 67613611, and d = c-b = 21 (neither prime nor square), so 67613590 is in the sequence.
Programs
-
Mathematica
c[n_]:=Module[{k=n+1},While[GCD[n,k]!=1||PrimeQ[k],k++];k]; Select[Range[10^8],CompositeQ[#]&&CompositeQ[c[#]-#]&&!IntegerQ[Sqrt[c[#]-#]]&]
Comments