OFFSET
1,2
COMMENTS
A071330(a(n)) = 0.
Here, "prime powers" is used in the relaxed sense, including 1. The numbers 96721, 121801, 192721, 205379, 226981,... seem to be the smallest composite terms of this sequence, which establishes the difference with the subsequence A115231. - M. F. Hasler, Nov 20 2014
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
PROG
(PARI) isprimepower(n)=ispower(n, , &n); isprime(n)||n==1;
isA095842(n)=if(!isprimepower(n), return(0)); forprime(p=2, n\2, if(isprimepower(n-p), return(0))); forprime(p=2, sqrtint(n\2), for(e=1, log(n\2)\log(p), if(isprimepower(n-p^e), return(0)))); !isprimepower(n-1)
\\ Charles R Greathouse IV, Jul 06 2011
(Haskell)
a095842 n = a095842_list !! (n-1)
a095842_list = filter ((== 0) . a071330) a000961_list
-- Reinhard Zumkeller, Jan 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 10 2004
STATUS
approved