OFFSET
1,1
COMMENTS
Numbers k that have one more prime divisor (counted by multiplicity) than k + 1.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 8 is a term because 8 = 2^3 has 3 prime divisors (counted by multiplicity) and 8 + 1 = 9 = 3^2 has 2.
MAPLE
N:= 1000: # for terms <= N
V:= map(numtheory:-bigomega, [$1..N+1]):
select(t -> V[t] = 1 + V[t+1], [$1..N]);
MATHEMATICA
s = {}; Do[If[PrimeOmega[k] == 1 + PrimeOmega[k + 1], AppendTo[s, k]], {k, 500}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov and Robert Israel, Jan 14 2024
STATUS
approved