OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200
EXAMPLE
MATHEMATICA
Join[{3}, DeleteDuplicates[Differences[Select[Range[10^6], PrimePowerQ[#] && !PrimeQ[ #]&]], GreaterEqual]] (* Harvey P. Dale, Feb 28 2023 *)
PROG
(PARI) isA025475(n) = (omega(n) == 1 & !isprime(n)) || (n == 1)
d_max=0; n_prev=1; for(n=2, 32e6, if(isA025475(n), d=n-n_prev; n_prev=n; if(d>d_max, print(d); d_max=d)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael B. Porter, Oct 29 2009, Oct 31 2009, Nov 03 2009
STATUS
approved