OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A018252(n)^2. - Omar E. Pol, Oct 30 2007
Sum_{n>=1} 1/a(n) = A275647. - Amiram Eldar, Oct 14 2020
MATHEMATICA
Select[Range[100], !PrimeQ[#]&]^2 (* Harvey P. Dale, Jan 27 2016 *)
PROG
(PARI) for(n=1, 30, if(isprime(n), n+1, print(n^2)))
(PARI) n=0; for (m=1, 2000, if (!isprime(m), write("b062312.txt", n++, " ", m^2); if (n==1000, break))) \\ Harry J. Smith, Aug 04 2009
(PARI) is(n)=issquare(n, &n) && !isprime(n) \\ Charles R Greathouse IV, Sep 18 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 05 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Jul 05 2001
STATUS
approved