1,3

A045698(a(n)) = 0.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

a(n) ~ n. - Charles R Greathouse IV, Sep 01 2015

(Haskell)

import Data.List (elemIndices)

a214879 n = a214879_list !! (n-1)

a214879_list = elemIndices 0 a045698_list

-- Reinhard Zumkeller, Jul 29 2012

(PARI) is(n)=forprime(p=2, sqrtint(n), if(isprimepower(n-p^2)==2, return(0))); 1 \\ Charles R Greathouse IV, Sep 01 2015

Cf. A045636 (complement).

Sequence in context: A283970 A121166 A249017 * A187226 A026470 A014133

Adjacent sequences: A214876 A214877 A214878 * A214880 A214881 A214882

nonn

Reinhard Zumkeller, Jul 29 2012

approved