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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A323509 a(n) = 1 if n = 2^e1 * 3^e2 * ... * prime(k)^e_k, with k = A061395(n) = A001221(n) and e1 >= e2 >= ... >= e_k, with each e1 .. e_k one less than a prime, otherwise a(n) = 0. 2
1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

COMMENTS

Characteristic function for the range of A037019.

LINKS

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

Index entries for characteristic functions

FORMULA

a(A037019(n)) = 1.

a(n) <= A322585(n).

PROG

(PARI) A323509(n) = { my(f = factor(n)); for(i=1, #f~, if((primepi(f[i, 1])!=i)||!isprime(1+f[i, 2])||((i>1)&&(f[i-1, 2]<f[i, 2])), return(0))); (1); };

CROSSREFS

Cf. A037019, A322585.

Cf. also A323510.

Sequence in context: A185175 A322586 A147612 * A197183 A295405 A267001

Adjacent sequences:  A323506 A323507 A323508 * A323510 A323511 A323512

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jan 18 2019

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 21 03:24 EDT 2019. Contains 328291 sequences. (Running on oeis4.)