OFFSET
1,2
EXAMPLE
1 (nonprime) is a term because composite(1) = 4 = 2*2 and 2 + 2 = 4 is an even composite;
4 (nonprime) is a term because composite(4) = 9 = 3*3 and 3 + 3 = 6 is an even composite;
8 (nonprime) is a term because composite(8) = 15 = 3*5 and 3 + 5 = 8 is an even composite.
MAPLE
pss := proc(n) local a, d ; a := 0 ; for d in ifactors(n)[2] do a := a+ op(2, d)*op(1, d) ; end do: a ; end proc:
isA002808 := proc(n) n >= 4 and not isprime(n) ; end proc:
A002808 := proc(n) option remember ; local a; if n = 1 then 4; else for a from procname(n-1)+1 do if not isprime(a) then return a; end if; end do; end if; end proc:
for n from 1 to 400 do if not isprime(n) then c := pss(A002808(n)) ; if type(c, 'even') and isA002808(c) then printf("%d, ", n) ; end if; end if; end do: # R. J. Mathar, May 10 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 20 2009
EXTENSIONS
Corrected (44 removed, 80 inserted) by R. J. Mathar, May 10 2010
STATUS
approved