OFFSET
3,2
LINKS
Robert Israel, Table of n, a(n) for n = 3..10000
MAPLE
seq(padic:-ordp(ithprime(n)-3, 2), n=3..100); # Robert Israel, Aug 21 2018
MATHEMATICA
Table[IntegerExponent[Prime[n]-3, 2], {n, 3, 100}] (* Jean-François Alcover, Jun 03 2019 *)
PROG
(PARI) twos(n) = if(n%2==1||n<1, 0, twos(n/2)+1)
A023572(n) = twos(prime(n)-3)
(PARI) a(n) = valuation(prime(n)-3, 2); \\ Michel Marcus, Aug 21 2018
(Magma) [Valuation(NthPrime(n) - 3, 2): n in [3..100]]; // Vincenzo Librandi, Aug 21 2018
(Sage) [valuation(p-3, 2) for p in primes(5, 555)] # Peter Luschny, Aug 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset set to 3 following a suggestion of R. J. Mathar, Peter Luschny, Aug 21 2018
STATUS
approved