OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 301, 2], PrimeNu[#-1] == PrimeNu[#+1]&] (* Jean-François Alcover, Oct 18 2016 *)
PROG
(PARI) g(n) = forstep(x=3, n, 2, p1=omega(x-1); p2=omega(x+1); if(p1==p2, print(x", ")))
(Magma) [k: k in [3..265 by 2]| #PrimeDivisors(k-1) eq #PrimeDivisors(k+1)]; // Marius A. Burtea, Feb 19 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Mar 03 2006
EXTENSIONS
Offset corrected by Michel Marcus, Oct 18 2016
STATUS
approved