OFFSET
1,1
COMMENTS
Complement of A171521. - Jaroslav Krizek, Dec 13 2009
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = n * A002808(n). - Jaroslav Krizek, Dec 13 2009
EXAMPLE
a(1)= 1*4, a(2)= 2*6, a(3)= 3*9, a(4) = 4*10.
MAPLE
count := 1: for i from 2 to 100 do if isprime(i) then else printf(`%d, `, i*count); count := count+1 fi: od: # James A. Sellers, May 28 2002
MATHEMATICA
Module[{cn=Select[Range[70], CompositeQ]}, Times@@@Thread[{cn, Range[ Length[ cn]]}]] (* Harvey P. Dale, Nov 13 2014 *)
PROG
(PARI) lista(nn) = {my(nc = 0); forcomposite(c=1, nn, nc ++; print1(c*nc, ", "); ); } \\ Michel Marcus, Aug 31 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 17 2002
EXTENSIONS
More terms from James A. Sellers, May 28 2002
Edited by N. J. A. Sloane, Jul 02 2008 at the suggestion of R. J. Mathar
STATUS
approved