A379231 Terms of A379230 whose absolute value is prime.
3, 5, 7, -11, 19, 29, -37, -23, 31, -13, -11, 37, -311, 317, 593, 23, -11, -929, -53, 41, -59, -643, 29
Offset: 1
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.
35 is divisible by both 5 and 7, and 5 and 7 are consecutive primes. 77 is divisible by both 7 and 11, and 7 and 11 are consecutive primes. 110 is not in the sequence because, although it is divisible by 2, 5 and 11, it is not divisible by 3 or 7.
N:= 1000: # for terms <= N R:= {}: p:= 2: do q:= p; p:= nextprime(p); if p*q > N then break fi; R:= R union {seq(i,i=p*q..N,p*q)} od: sort(convert(R,list)); # Robert Israel, Apr 13 2020
fQ[n_] := Block[{lst = PrimePi /@ Flatten[ Table[ #[[1]], {1}] & /@ FactorInteger[n]]}, Count[ Drop[lst, 1] - Drop[lst, -1], 1] > 0]; Select[ Range[244], fQ[ # ] &] (* Robert G. Wilson v, Mar 16 2005 *)
A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; is_A104210(n) = (gcd(n,A003961(n))>1); \\ Antti Karttunen, Dec 24 2024
Comments