A158754 -id:A158754 - cp's OEIS frontend

A158758 Politest numbers.

4, 8, 9, 11, 13, 14, 15, 16, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 35, 36, 37, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 89, 90

Offset: 1

Graph
List
Refs
Listen
History
Text
Internal format

Vladimir Joseph Stephan Orlovsky, Mar 25 2009

nonn

Politest numbers can be written as the sum of two or more consecutive polite numbers. 1,3,5,6,7,9,10,11,12,13,14,15,17,18,...Polite numbers. 4=1+3, 8=3+5, 9=1+3+5, 11=5+6, 13=6+7, 14=3+5+6, 15=1+3+5+6,...Politest numbers.

Cf. A138591, A065867, A158754

lst={};Do[p=m;If[Mod[2^p,p]!=0||p==1,Do[If[Mod[2^n,n]!=0,p+=n;AppendTo[lst,p]],{n,m+1,5!}]],{m,1,5!}];Take[Union[lst],5! ]

cp's OEIS Frontend

A158758 Politest numbers.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica