The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A003597 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
newer changes | Showing entries 11-20 | older changes

A003597

Numbers of the form 3^i*11^j.
(history; published version)

#24 by Bruno Berselli at Tue Mar 19 13:01:17 EDT 2019

STATUS

editing

approved

#23 by Bruno Berselli at Tue Mar 19 13:01:13 EDT 2019

PROG

(GAP) Filtered([01..324000], n->PowerMod(33, n, n)=0); # Muniru A Asiru, Mar 19 2019

STATUS

approved

editing

#22 by Bruno Berselli at Tue Mar 19 10:20:12 EDT 2019

STATUS

proposed

approved

#21 by Muniru A Asiru at Tue Mar 19 09:41:20 EDT 2019

STATUS

editing

proposed

Discussion

Tue Mar 19

10:06

Michel Marcus: gap error

#20 by Muniru A Asiru at Tue Mar 19 09:41:04 EDT 2019

PROG

(GAP) Filtered([0..324000], n->PowerMod(33, n, n)=0); # Muniru A Asiru, Mar 19 2019

STATUS

proposed

editing

#19 by Peter Bala at Tue Mar 19 07:32:33 EDT 2019

STATUS

editing

proposed

#18 by Peter Bala at Mon Mar 18 18:03:21 EDT 2019

FORMULA

The characteristic function of this sequence is given by Sum_{n >= 1} x^a(n) = Sum_{n >= 1} mu(33*n)*x^n/(1 - x^n), where mu(n) is the Möbius function A008683. Cf. with the formula of Hanna in A051037. - Peter Bala, Mar 18 2019

STATUS

approved

editing

#17 by Bruno Berselli at Mon Jun 27 05:04:41 EDT 2016

STATUS

editing

approved

#16 by Bruno Berselli at Mon Jun 27 05:04:24 EDT 2016

MATHEMATICA

fQ[n_]:=PowerMod[33, n, n] == 0; Select[Range[4*10^5], fQ] (° _* _Vincenzo Librandi_, Jun 27 2016 *)

Discussion

Mon Jun 27

05:04

Bruno Berselli: More attention, please ---

#15 by Bruno Berselli at Mon Jun 27 03:01:24 EDT 2016

STATUS

proposed

editing