login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A331281 If A061395(n) <= A001222(n), then a(n) = 1, otherwise a(n) = 0. 4
1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Index entries for sequences computed from indices in prime factorization

FORMULA

For all n >= 1, a(A065091(n)) = 0, a(A088902(n)) = 1.

PROG

(PARI)

A061395(n) = if(n>1, primepi(vecmax(factor(n)[, 1])), 0);

A331281(n) = (A061395(n)<=bigomega(n));

CROSSREFS

Characteristic function of {1} U A324521.

Cf. A001222, A061395, A065901, A088902.

Cf. also A331168, A331282.

Sequence in context: A078387 A189292 A331168 * A105470 A087429 A093075

Adjacent sequences:  A331278 A331279 A331280 * A331282 A331283 A331284

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jan 13 2020

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 July 8 01:48 EDT 2020. Contains 335502 sequences. (Running on oeis4.)