OFFSET
0,4
FORMULA
a(n) = A014684(n), n>0. - R. J. Mathar, Aug 13 2008
MATHEMATICA
Table[If[PrimeQ[n], n-1, n], {n, 0, 80}] (* Harvey P. Dale, Sep 10 2017 *)
PROG
(Python)
from sympy import isprime
def A113638(n): return n-int(isprime(n)) # Chai Wah Wu, Oct 14 2023
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jan 15 2006
EXTENSIONS
Name corrected by Wolfdieter Lang, Apr 22 2015
STATUS
approved