OFFSET
1,1
COMMENTS
a(2^k) = 2^(k+1).
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
lng[n_]:=Module[{x=n+1, pon=PrimeOmega[n]}, While[PrimeOmega[x]-pon!=1, x++]; x]; Array[lng, 80] (* Harvey P. Dale, Nov 09 2011 *)
PROG
(Haskell)
a079890 n = head [x | x <- [n + 1 ..], a001222 x == 1 + a001222 n]
-- Reinhard Zumkeller, Aug 29 2013
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Jan 14 2003
STATUS
approved