OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) isok1(n) = vecsort(factor(n-1)[, 2]) == vecsort(factor(n+1)[, 2]);
isok(n) = isok1(n) && isok1(n+1); \\ Michel Marcus, Jul 28 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 22 2003
EXTENSIONS
More terms from David Wasserman, Mar 21 2005
STATUS
approved