OFFSET
1,1
COMMENTS
EXAMPLE
MAPLE
A001414 := proc(n) local fcts, d ; fcts := ifactors(n)[2] ; add(op(1, d)*op(2, d), d=fcts) ; end proc:
isA045718 := proc(n) isprime(n+1) or isprime(n-1) ; end proc:
isA128510 := proc(n) local c; if not isprime(n) then c := n*A001414(n) ; isA045718(c) ; else false; end if ; end proc:
for n from 4 to 500 do if isA128510(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Nov 02 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
J. M. Bergot, May 07 2007
EXTENSIONS
8 inserted and sequence extended by R. J. Mathar, Nov 02 2009
STATUS
approved