OFFSET
2,1
MATHEMATICA
ss[n_]:=Module[{s=1, f=FactorInteger[n][[-1, 1]]}, While[f!=FactorInteger[ s+n][[-1, 1]], s++]; s]; Array[ss, 80, 2] (* Harvey P. Dale, Aug 18 2015 *)
PROG
(PARI) for(n=2, 120, s=+1; while(abs(component(component(factor(n), 1), omega(n))-component(component(factor(n+s), 1), omega(n+s)))>0, s++); print1(s, ", "))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 08 2002
EXTENSIONS
Offset corrected by Sean A. Irvine, Aug 16 2024
STATUS
approved