OFFSET
1,1
COMMENTS
Prime factors counted with multiplicity. - Harvey P. Dale, Feb 06 2020
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
1214 - 4 = 1210 = 2 * 5 * 11 * 11 and 1214 + 4 = 1218 = 2 * 3 * 7 * 29 so 1214 is in the sequence. - Jon E. Schoenfield, Jan 19 2015
MATHEMATICA
q=4; lst={}; Do[If[Plus@@Last/@FactorInteger[n-q]==q&&Plus@@Last/@FactorInteger[n+q]==q, AppendTo[lst, n]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 01 2009 *)
Mean/@SequencePosition[PrimeOmega[Range[2000]], {4, _, _, _, _, _, _, _, 4}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 14 2005
STATUS
approved