|
Search: id:A083792
|
|
|
| A083792 |
|
Sequence is defined by property that no two successive terms have the same prime signature. |
|
+0
2
|
|
| 1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
with(numtheory):with(linalg): primesigcheck := proc(n) temp1 := ifactors(n)[2]: temp2 := ifactors(n-1)[2]: ps1 := array(1..nops(temp1)):ps2 := array(1..nops(temp2)): for i from 1 to nops(temp1) do ps1[i] := temp1[i][2] od: for i from 1 to nops(temp2) do ps2[i] := temp2[i][2] od: if equal(ps1, ps2) then RETURN(1) else RETURN(0) fi: end: for n from 2 to 10^3 do if primesigcheck(n) = 0 then printf(`%d, `, n) fi: od:
|
|
MATHEMATICA
|
Select[ Range[80], PrimeFactorExponents[ # ] != PrimeFactorExponents[ # - 1] & ]
|
|
CROSSREFS
|
Cf. A083793.
Sequence in context: A004722 A094798 A162880 this_sequence A083794 A133016 A026503
Adjacent sequences: A083789 A083790 A083791 this_sequence A083793 A083794 A083795
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 07 2003
|
|
EXTENSIONS
|
More terms and Maple code from James A. Sellers (sellersj(AT)math.psu.edu), May 19, 2003
|
|
|
Search completed in 0.018 seconds
|
