login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A147612 If n is a Jacobsthal number then 1 else 0. 10
1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

a(A001045(n)) = 1; a(A147613(n)) = 0.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..43692

Index entries for characteristic functions

FORMULA

a(n) = 0^(j(n,1)*j(n,-1)) with j(n,i) = if n mod 2 = 0 then n else j((n+i)/2,-i).

a(n) = A105348(n), for n <> 1. - R. J. Mathar, Nov 19 2008

For n > 0, a(n) = A000035(A281228(A265746(n))), where A000035(A281228(n)) is the characteristic function of powers of 3 (A000244). - Antti Karttunen, Oct 09 2017

MATHEMATICA

With[{s = LinearRecurrence[{1, 2}, {0, 1}, 24]}, Array[If[FreeQ[s, #], 0, 1] &, 105, 0]] (* Michael De Vlieger, Oct 09 2017 *)

PROG

(PARI)

A147612aux(n, i) = if(!(n%2), n, A147612aux((n+i)/2, -i));

A147612(n) = 0^(A147612aux(n, 1)*A147612aux(n, -1)); \\ Antti Karttunen, Oct 09 2017

CROSSREFS

Cf. A001045, A105348, A265746, A293431, A293432, A293433, A293434.

Sequence in context: A285533 A185175 A322586 * A323509 A197183 A295405

Adjacent sequences:  A147609 A147610 A147611 * A147613 A147614 A147615

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Nov 08 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 19:53 EDT 2019. Contains 328319 sequences. (Running on oeis4.)