OFFSET
1,1
COMMENTS
Many of these seem to be even semiprimes.
Is this sequence infinite, and if so, can someone exhibit an explicitly calculable subsequence?
a(42) > 10^5, if it exists. - Amiram Eldar, May 02 2024
MATHEMATICA
f[p_, e_] := (p^(e + 1) - 1)/(p - 1); pracQ[n_] := pracQ[n] = (ind = Position[(fct = FactorInteger[n])[[;; , 1]]/(1 + FoldList[Times, 1, f @@@ Most@fct]), _?(# > 1 &)]) == {}; q[n_] := 2 == Sum[If[pracQ[p] && ((PrimeQ[n - p] && PrimeQ[n + p]) || (pracQ[n - p] && pracQ[n + p])), 1, 0], {p, 1, n - 1}]; Select[Range[4000], q] (* Amiram Eldar, May 02 2024 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
M. F. Hasler, Jan 19 2013
EXTENSIONS
Data corrected by Amiram Eldar, May 02 2024
STATUS
approved